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ABST1»CT 

Ihe  Depot  Maintenance  Planning  and  Progremning  System 
(DMPPS)  is  a large  computer  system  developed  over  a period 
of  two  and  a half  years  by  the  David  W.  Taylor  Naval  Ship 
Research  and  Development  Center  (DTNSRDC),  Code  186  for 
the  Naval  Sea  Systems  Command  (NAVSEA) , Code  070T.  The 
System  was  developed  to  project  shipyard  resource  require- 
ments (i.e.,  labor  mandays  and  costs  as  well  as  material 
costs)  by  shipyard  production  shop  and  by  ship  work  break- 
down structure  (SWBS).  It  enables  management  to  assess 
the  impact  on  the  shipyards  and  ship  systems  of 

Changes  in  depot-level  maintenance/alter- 
ations policy 

Major  changes  in  force  levels  and/or  com- 
position 

Budgetary  constraints 

DMPPS  consists  of  a network  of  interdependent  computer 
programs  written  in  FORTRAN  IV.  It  was  developed  at  DTOSRDC 
using  the  CDC  6000  series  computers  and  was  subsequently 
converted  for  the  IBM  360/370  series  computers.  It  is  now 
installed  euid  operational  at  the  NAVSEA  070  computer  terminal 
(which  accesses  an  IBM  370/168  computer).  This  document 
presents  the  IBM  360/370  version  of  the  DMPPS  program  modules. 
The  modules  have  been  grouped  into  six  subsystems.  Each 
of  Volvxnes  2-7  of  this  docvment  describes,  in  detail,  one  of 
these  subsystems.  An  executive  sunmary  of  the  entire  DMPPS  is 
presented  in  Volime  1.  The  content  of  the  seven  volunes  is 
indicated  as  follows: 

Voltme  1 - Executive  Stmmary 
Volixne  2 - Preprocessor  Subsystem 
volime  3 - Alterations  Subsystem 
voltme  4 - Repair  Subsystem 
Volume  5 - Synthesizer  Subsystem 
volume  6 - Report  Generator  Subsystem 
Volime  7 - Fe^back  Subsystem 
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7 FEEDBACK  SUBSYSTEM 

The  shipyard  feedback  subsystem  of  the  Depot  Maintenctnce  Planning 
Progr^^>ning  System  (DMPPS)  consists  of  two  computer  programs  tdiich  process 
data  on  completed  availabilities.  The  programs  provide  Depot  Maintenance 
Plamning  Module  (DMPM)  profiles  and  shop  vectors  for  repairs  and  altera- 
tions. Results  obtained  from  the  repair  data  may  be  used  to  update  the 
mean  values  used  in  the  repair  data  base.  Results  obtained  from  the 
alteration  data  may  be  used  if  the  particular  alterations  are  scheduled 
again. 

Data  from  the  shipyards  are  ccnpiled  by  the  Long  Beach  computer 
program  445  and  sent  on  magnetic  tape  to  DTMSRDC,  Code  187,  where  the 
information  is  placed  on  a disk  device.  The  file  may  have  certain  ele- 
ments which  are  incompatible  with  FORTRAN  programs  and  these  incompati- 
bilities are  removed  by  a COBOL  pr^rocessor  program. 

The  program  TOBK  is  run  for  selected  groups  of  Customer  Order  Accept- 
ance Records  (COAR's)  to  obtain  hard  copy  and/or  punched  cards  for  use  in 
updating  the  data  bases.  The  COAR  groupings  are  selected  to  provide 
useful  data  base  improvements,  e.g.,  all  repair  COAR's  for  carrier  types 
might  be  grouped.  Alterations  are  reported  by  full  job  order  nunber,  and 
as  such  may  be  cross-referenced  with  departure  reports  to  obtain  the 
actual  alteration  identification  nutibers  vAiich  appear  in  SAMIS. 

A diagram  of  the  subsystem  is  shown  in  Figure  7.0-1. 


Figure  7.0-1  - Block  Diagram  of  Feedback  Subsystem 


7.1  PROGRAM  FEEDBAOC-PREPHOCESSOR 


7.1.1  DESCRIPTION 

This  (»:ogrcni  reads  the  shipyard  shop  data  file  and  reformats  it 
for  use  in  program  FI»K.  Iliis  reformatting  is  necesseiry  because  certain 
entries  in  the  data  file  may  contain  negative  values  as  the  result  of 
transfer  of  funds.  Itie  negative  values  will  be  ignored  by  subsequent 
programs,  since  the  transferred  funds  will  have  been  entered  elsevAiere 
in  the  file.  FORTRAN  programs  cannot  read  the  negative  sign  superimposed 
by  COBOL  on  the  entries  under  consideration. 

The  COBOL  preprocessor  program  reads  each  entry  and,  when  a negative 
sign  occurs,  rewrites  it  as  the  leftmost  character  in  the  word;  the 
nunerical  value  remains  right  adjusted.  If  the  third,  fourth,  and  fifth 

' characters  of  the  COAR  are  nonnuneric,  the  program  resets  them  to  "000". 

• The  new  file  created  in  this  manner,  now  compatible  with  FORTRAN  read 

statements,  is  catalogued  and  copied  to  output. 

i 

I 

I 


7.1 .2  RUN  SF«r-tIP 


The  following  set-up  is  used  to  run  the  FEEDBACK-PREPROCESSOR 


program  on  the  CDC  6700  computer; 


IJSER,rM70C3C. 

CHARCr.llSER.XXXXXKXXXy. 

ATTACH,TftPEl.FeE0BACKFILE,I0=CA»E. 

ATTACH, PROG, FEEDBACKPREPR0CESS0R,I0=CAAE.  OBJECT  CODE  OP  PREPROCESSOR 

REOUEST.TAPEX.'PP. 

prog.  EXECUTE  PREPROCESSOR 

CATALOG, TAPE7,FEEDBACXPTLE,I0=USER,ACsXXXXXXXXXX.  NEW  PEEOBACK  FILE 

PURGE .TAPEl. 

REWIN0,TAP£7. 

COP YS8F,TAPE7, OUTPUT. 

7/8/9  ENO  OF  RECORD 
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7.1.3  INPUT 


7. 1.3. 2 Unit  7 - Shipyard  Shop  Data  File 


Data  on  completed  shipyard  work  are  grouped  into  bookke^ing  units 
called  CXJAR's  (Customer  Order  Acceptance  Records).  These  data  are  ob- 
tained from  each  yard  and  stored  on  the  disk.  The  format  of  each  record 
in  the  file  is  as  follows: 

INFILE-RECl  (Shop  Data  Record) 


Variable  Name 

Description 

Field 

Picture 

DATAl 

'^'i.'st  two  characters  of 
the  COAR  field 

1-2 

XX 

AVAILABILITY 

Next  three  characters  of 
the  COAR  field 

3-5 

XXX 

nATA2 

SWBS  and  segment  counter 

6-13 

X(8) 

DATA3 

Shop  number 

XX 

MANDAYSl 

First  character  of  mandays 
field 

X 

MANDAYS2 

Next  seven  characters  of 
mandays  fields 

S9(7) 

MATERIALl 

First  character  of  material 
expenditures  field 

. 14-103* 

X 

MATERIAL2 

Next  seven  characters  of 
material  expenditures 
field 

S9(7) 

TOTALl 

First  character  of  total 
expenditures  field 

X 

T0TAL2 

Next  seven  characters  of 
total  expenditures  field 

S9(7) 

FILLER 

Filler 

X(4) 

DATA 

Sequence  number 

104-108 

X(5) 

*This  group  occurs  three  times. 


INFILE-REC2  (All  Other  Records) 


Variable  Name 

Description 

Field 

Picture 

VDRK-CATBG 

First  two  characters  of 
the  COAR 

1-2 

XX 

HEAD-AVAIL- 

ABILITY-IN 

Next  three  characters  of 
the  COAR 

3-5 

XXX 

FILLER 

Filler 

6-108 

X(103) 

7 


Iv  ^ ,. 

1 

I'i  ■; 

it’ 

>'  ‘ 

? < 

1; 

7.1.4  MORKING  STORAGE 

i‘ 

; t 

Ttie  following  format 

is  used  for  working  storage: 

i 

j 

Variable  Name 

Description 

Picture 

MINUSS  VALUE 

Negative  Sign 

X 

( ; 

INDEXX 

Loop  Index 

9 

; ' 

OXJOTER 

Counter  for  the  nimber 
of  files  to  be  processed 

99 

NCTIHING  VALUE  "000" 

Three  zero  chciracters 

XXX 

TEMP-STORA3E1 

Absolute  value  of  mandays 

9(7) 

i 

TEMP-STQRA3E2 

Absolute  veilue  of  material 
expenditures 

9(7) 

■i 

:t' 

TEMP-STORA3E3 

Absolute  value  of  total 
expenditures 

9(7) 

‘i  1 

\ * 

7.1.5  CXJTPUT 

■■  i 

The  modified  shipyard 

file  is  assigned  to  unit  1 with  PldURE  X(108). 

When  an  internal  counter 

exceeds  the  nunber  of  files 

specified  on  the 

, j 

input  card,  the  number  of 

files  as  well  as  the  counter,  is  written  to 

j ' 

output.  The  format  is  the  same  as  that  used  on  unit 

7.  (See  Figure 

i. 

7.1-1.) 

1 

'4 

i ^ 

.1- 

i 

A sample  of  the  output  is  given  in  Section  7.1.7. 

1 

.{ 

( 

8 

j 

k - 

7.1.6  PROGRAM  LISTING 


IDENTIFICATION  DIVISION. 

PRE 

10 

PN06RAN-ID.  FEEDBACK-PREPROCESSER 

PRE 

20 

ENVIRONNENT  DIVISION. 

PRE 

30 

CONFISURATION  SECTION. 

PRE 

LO 

INPUT-OUTPUT  SECTION. 

PRE 

50 

FILE 

[-CONTROL. 

PRE 

60 

SELECT  INFILE  ASSIGN  TO  TAPEl-FZ. 

PRE 

70 

SELECT  CARDFILE  ASSIGN  TO 

INPUT. 

PRE 

80 

SELECT  OUTFILE  ASSIGN  TO 

TAPE7-FZ. 

PRE 

90 

DATA  DIVISION. 

PRE 

100 

FILE  SECTION. 

PRE 

110 

FO 

INFILE 

PRE 

120 

LABEL  RECORDS  ARE  OHITTED 

PRE 

130 

RECORD  CONTAINS  IBS  CHARACTERS 

PRE 

ILO 

DATA  RECORD  IS  INFILE-RECl 

INFILE-REC2. 

PRE 

150 

• 1 

INFILE-RECl. 

PRE 

160 

03  OATAl 

PICTURE 

XX. 

PRE 

170 

03  AVAILABILITY 

PICTURE 

XXX. 

PRE 

100 

03  0ATA2 

PICTURE 

X(S)  . 

PRE 

190 

03  DETAILS  OCCURS  3 TINES. 

PRE 

200 

05  0ATA3 

PICTURE 

XX. 

PRE 

210 

05  NANOAYSl 

PICTURE 

X. 

PRE 

220 

05  HANOAVSZ 

PICTURE 

S9(7I. 

PRE 

230 

05  NATERIALl 

PICTURE 

X. 

PRE 

2L0 

05  HATERIAL2 

PICTURE 

S9I7). 

PRE 

250 

05  TOTALl 

PICTURE 

X. 

PRE 

260 

05  TOTAL2 

PICTURE 

S9(7). 

PRE 

270 

05  FILLER 

PICTURE 

XCL)  . 

PRE 

280 

03  OATAL 

PICTURE 

X(5). 

PRE 

290 

01 

IRFILE-REC2. 

PRE 

300 

03  M0RK-CATE6 

PICTURE 

XX. 

PRE 

310 

03  HEAO-AVAILABILITY-IN 

PICTURE 

XXX. 

PRE 

320 

03  FILLER 

PICTURE 

XflOSI. 

PRE 

330 

FD 

OUTFILE 

PRE 

360 

LABEL  RECORDS  ARE  OHITTED 

PRE 

350 

RECORD  CONTAINS  100  CHARACTERS 

PRE 

360 

DATA  RECORD  IS  OUTFILE-REC 

• 

PRE 

370 

01 

OUTFILE-REC 

PICTURE 

X(IOO). 

PRE 

300 

FO 

CARDFILE 

PRE 

390 

LABEL  RECORDS  ARE  OHITTED 

PRE 

600 

RECORD  CONTAINS  00  CHARACTERS 

PRE 

610 

DATA  RECORD  IS  CAROFILE-REC. 

PRE 

620 

01 

CAROFILE-REC. 

PRE 

630 

03  NUHBER-OF-FILES 

PICTURE 

99. 

PRE 

660 

03  FILLER 

PICTURE 

X(7S). 

PRE 

650 

N0RKING-ST0RA6E  SECTION. 

PRE 

660 

01 

MURK-AREAl. 

PRE 

670 

03  NINUSS  VALUE 

PICTURE 

X. 

PRE 

680 

03  INOCXX 

PICTURE 

9. 

PRE 

690 

03  COUNTER 

PICTURE 

99. 

PRE 

500 

03  NOTHING  VALUE  "000* 

PICTURE 

XXX. 

PRE 

510 

03  TEHP-STORAGEl 

PICTURE 

917). 

PRE 

520 

03  TENP-STORAGE2 

PICTURE 

9(7). 

PRE 

530 

03  TENP-STORAGE3 

PICTURE 

9(7). 

PRE 

560 

PROCEDURE  DIVISION. 

PRE 

550 

9 


1 


N 


INITIALIZATION. 

PRE 

960 

O^EN  INPUT  INEILE  CARDFILE  OUTPUT  OUTFILE. 

PRE 

970 

READ  CARDFILE  AT  END  DISPLAY  ” NO  DATA  CARD 

INPUT  - 

PRE 

900 

CLOSE  infile  cardfile  OUTFILE 

PRE 

990 

STOP  RUN. 

PRE 

600 

MOVE  t TO  COUNTER. 

PRE 

610 

CLOSE  CARDFILE. 

PRE 

6ZB 

PROCESS-HEADER. 

PRE 

630 

READ  INFILE  AT  END  CO  TO  PARA-FOR-IF-TEST. 

PRE 

660 

MHERE-VOU-NERE. 

PRE 

690 

IF  head-availabilitv-in  not  NUHERIC 

PRC 

660 

DISPLAY  NORK-CATEC  HEAO-AVAILABILITY-IN  * 

CHANCED  TO  ** 

PRC 

670 

NORK-CATEG  NOTHING 

PRE 

600 

HOVE  NOTHING  TO  HEAO-AVAILABILITY-IN. 

PRE 

690 

HRITE  OUTFILE-REC  FRON  INFILE-RECZ. 

PRC 

700 

READ-DATA. 

PRE 

710 

READ  INFILE  AT  END  DISPLAY  *■  UNEXPECTED  END 

OF 

FILE  - 

PRE 

7Z0 

CLOSE  INFILE  OUTFILE  STOP 

RUN. 

PRC 

730 

PERFORH  SNITCH-SIGN  VARYING  INOEXX  FRON  1 BY 

1 

PRE 

760 

UNTIL  INOEXX  EQUAL  A. 

PRE 

790 

IF  AVAILABILITY  NOT  NUHERIC  HOVE  NOTHING  TO 

availability. 

PRC 

760 

NRITE  OUTFILE-REC  FRON  INFILE-RECI. 

PRC 

770 

IF  NATERIALZ  (3»  EQUAL  **9999999**  CO  TO  PROCESS-HEADER. 

PRE 

780 

GO  TO  READ-OATA. 

PRE 

790 

SNITCH-SIGN. 

PRE 

BOO 

HAVE  HANOAYSZ  (INOEXX)  TO  TENP-STORAGEl. 

PRC 

810 

HOVE  NATERIALZ  (INOEXX)  TO  TEHP-STORAGEZ. 

PRE 

BZO 

HOVE  TOTALZ  (INOEXX)  TO  TENP-STORAGE3. 

PRE 

830 

IF  NANOAYSZ  (INOEXX)  NEGATIVE 

PRE 

860 

HOVE  NINUSS  TO  NANOAYSl  (INOEXX). 

PRE 

IF  NATERIALZ  (INOEXX)  NEGATIVE 

PRC 

860 

HOVE  NINUSS  TO  HATERIALl  (INOEXX). 

PRE 

870 

IF  TOTALZ  (INOEXX)  NEGATIVE 

PRC 

880 

HOVE  NINUSS  TO  TOTALl  (INOEXX). 

PRE 

690 

NBVE  TENP-STORAGEl  TO  NANOAYSZ  (INOEXX). 

PRC 

900 

HOVE  TEHP-STORAGEZ  TO  NATERIALZ  (INOEXX). 

PRC 

910 

NOVE  TENP-STORAGE3  TO  TOTALZ  (INOEXX). 

PRC 

9Z0 

PARA-FOR-IF-TEST. 

PRE 

930 

ADO  1 TO  COUNTER. 

.’RE 

960 

DISPLAY  **COUNTER‘  COUNTER 

PRE 

990 

display  *nuhber  of  files**  NUNBER-OF-FILCS 

PRE 

960 

IF  COUNTER  GREATER  THAN  NUNBER-OF-FILES 

PRE 

970 

CLOSE  INFILE  OUTFILE  STOP  RUN. 

PRE 

980 

GO  TO  NHERE-YOU-HERE. 

PRE 

990 

i 


10 
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7.1.7  SAMPLE  FUN 

A tape  file  obtained  from  the  Norfolk  Navsd  Shipyzird  w2is  used  for 
the  sample  run.  The  file  was  generated  at  800  BPI,  with  a blocking 
factor  of  20.  Since  the  tape  was  not  compatible  with  the  NOSBE  Operating 
system  of  the  CDC  computers,  a system  utility  routine,  COPYBLK,  was 
used  to  convert  the  tape  to  a standard  NOSBE  tape.  A disk  file  was  also 
made  of  the  information  on  the  tape. 

The  following  control  card  set-up  is  used  for  running  COPYBLK; 


USEK,CmiMI,NTl,Mri. 

CNaKSE,USCK,l»IXXK1IXX. 

vsN  crar  einbslotnnbl  BM911 

aEOUE9T,raPEXN,HOtNORINS,StEa. 
VSMITafEEaSLOTNNsFOBKt 
L aSEL ( r aaEE,L«FO8K0 ar E, N, D*MV , RXN6I 
REQUEST, raPEl,«FF. 

BECXN, COPYBLK, , 2t, LtO , EIBB , TaFEX  N, TaPEl . 

eaTaLOB,raFEt,YooaTE,xo>usER, a»«xxxxxxxxxx. 
RENXNOfTaFEl. 

C0FY8BF, T aFEt,OUTFUT. 

REMXND,TaFEt. 

C0FVBF,raFEi,rapEE. 

B/f/a/B  END  OF  FILE 


vaRO  TOPE  XN  SLOT  NR 
sramaRo  nosbe  raPE  xn  slot  nn 

COPT  raRB  raPE  to  oxsk 

COPY  to  sraNoaRD  nosbe  tbpe 


The  file  was  subsequently  run  through  the  FEEI»ACK-PREPROCESS(» 
program.  A partial  listing  of  the  resulting  file  is  given  here. 
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Unit  7 


(Input)  - Shipyard  Shop  Data  File 


cv  roor«2Fs  orrtsi  ooairjsrjf  rroiio  trrtaoii  2<>zif>aNoi<Foi  oiJ62 
••at  0000  iKiioaioooaoooooaozazoaooojFJOsoo  001  100  00  00  00  0000060200  0006020  aoosasoo  3011  ojao  01  )><>9roooi<><>9r  0000  01  Jk) 

• •a 1 001060 10010 3000006000000  2200 00 060600 00 0600 00 0000 0000 006000000002000 oil  000 000 00 0000 69600 OOOaOkOOOOOOl 366 
ooa too  106 010 1230 00000000 00 16 2600 00 1626000061 00 003 0 0000000 26600 00*266000 066030000 00 000002690000026900001 1366 
••610210601066000000000000266300002663000062000000000000632600006326000021000000020000002600000196000001366 
0*6 11001001061000000010000000000000163000000000000000000000000 000000000000000000 00 00000 00 00000000300 00 01362 
••61 26 101010010000600 20 00000 0600000 36 300000000000000000030000 00000000 00 000000 00 000 00 03 00000000000000000136* 
••6t61601030010000002'’000000000000370900 0061 00 0000260000006000 0061 60000066000300 01 0030001100000321000001 369 
00616160  1020620000000900  000000000013a60000210000a001 000000 1600000061000000000300 0300000000000000  00000001320 

• •616220  I 03001000000  16OOOOO06RO000SOa2OO0Olt  00000012000  00026000026a60000120000(<0090000000000001229000001  321 
0«6I67  20 1 01026(1000000900  0000  0000  00  160900  OOSa  00  00  00 16000  00  00000  0021  •2000091  000000  2200000a6200003S313  000  01 322 

• •6 16220  to  306600 0000 3600 0000 000 0 00 021 •00  002130 000032 00000 0 3600 00 020100002203030 0 0600 00000000000322 0000 01323 
••616300131 0'*1000a0002000000000000 03100000000000000000000 30000000000300000000000000000000000003000000001326 
00 116360 60300 loooon* 1200 0000 000 0002366000026000000 16000000000000 26 26 000 031 00000 00600000 00000 0009330000 01329 
•••16 36 060 1061000 000630 000 260600 00 aOl 600006600 003* 230000 000 000 010396000 021 00000 001 30000 00600000 1610000 01326 
••616360 201 06100000000 000063610 000 618100 000000 000000 000 000000000 00 000 00 00 0000000 0000000 0000 0000 0000 000 01 3 22 
•••16360601 0610 3000000 0000 00 0600 00 000600000000000000 00*00 000000000 00 000 ooooaoooo 0000000 000000000000000013 2* 
0 •616600 1020010 00000 36 000 000 060 0006911 0000 2200 00 00 0000001 66900 00 1969000 00 0000000 000000 0000000 00 00 3 0000 013 29 
•81 16600 201 00100 000001 000000000001)01620000000000000000000000000000009000000003000000 00 030 000000000000001 3*0 
••616600 10100100006001000000000000 oi6ioooooaooooooooooaoooooooooooooo3Qao30ooooooo30oooooooooooaoooocooi3*i 

••616600601001000000 12000000 190030 1260000011 00000000 00002*6100002a61 0000 12000300 00000000110000031 1000001 3*2 
0011 66006020 91030000 00 00001R860000  I 88 60000960000000000000 26 1000002 61 000000000000 00 0000000 00 OOOOOOOOaOOO 13*3 
••616600601 00t00008901600000000030011600 30000009000000000000000000 000000000a00000300000000000003300000013*6 
•••16600 60 100 1000000620000002300 008 20 200001100030066 300000680000 99 2* 000012000000 060000000000000930000001 309 
•«• 16600603026000000790000000000006662000031000000080000000000001109000091000006660000660600020693000001386 
••6 1660060106600 0000 190000 02860000 291 1000 06600 000033000 0062800 006309000 06200000 1260001 1262000 3092600 00 01 302 
••6t66*0607021000000160  00  00t 290000 192000  002200  000012000  00  OOOOO 00 2226000000000000 00 000000000000000300 00 OlOaO 
076166 0020100100000001000000 000000016 3000000000000000000 00000000 00 00000000 30000000000000000000000000 00 013 99 
••• 16661 20190 1000000 10 000000000000 161600 009100 0000 00 0000 006300 0000630 00 066 030000 000000 11 120000 11 120000 31390 
••616661981012000000000000197600001926000000000000000000000000000000000000000000000000300000000000000001391 

• •1166602020010000000600  0000  0000  00086200  006100  00  0000  0000  0 06600  0000660  00  000  000300  030000  0 0000000  0 0000000  01392 

• •616660  1010  01090 0 00 1900 0000000000 269600 000 03000 0000 00 0 03000000000000 00 00 0 00000 00000 000 000000003300000 01393 
••616621 20300t0000030600D0060200068662aa00060COOOOOOOOO 0300600000006000011 000010090002201200121912000001396 
••116621 291012900006660000696800023096000026000009060000622600192020000031000301 360000131900021222000001399 
••616621 2030 1800 000066000062220 001 3 106 00 006 10900 369200033 09300 109666 000 061 0300 32 1300121 3360066*3920000 01396 
••61667120306600001292001061 2800293106000066000006660000906600026196000062300006330000696603029222000001392 
Oti 16621 20 10 210 000 0212 90 00 230 300 03 10020 00 0220 0000 328 00000 2860 0092 296 00 308 1030 000 00 0000 03 23030 003 2 SO 0000 133« 
•••16661 201 001000000060000000000000616000000000000009000000000000000000000003000000000000000000003000001399 
•••169aO 10300100000622000003780008260600000600000000000 0000900 00 0006300011 000002810900 210203121630000001600 
02116900 10301 20 0001 099000 3 23 2900196028 00 0076 00030209 900 0096100 11 36 130 003 31 00 0000 61 30 0002890 00 3 226800 00 01601 
08116909101061000071160002171200386392000066000002980003026100022826000066030006320000891200109266000001602 
8*6t6900 103062000001 10 0007690200062832000021 00000201 000026360002996200002200000231 •000003000032669300001603 
••616900101 09990000003000000000000 068900000000000000 00000 00000 000000090000000000000000000000300003000001606 
086169 00201301000000 09 0090000 800001301000000000000000000000000000000000000000000000000000000000000000001609 
•86169 00 10200109001006 000000000000020 000006100 00000000000060000000 60 300000 000300 00000000000000030000000 16 06 
006161 6100100100000012000090000000 26090 00061 000000000000 200 30 00020 03000096 030000 00 00 009216000 0921600 00 01602 
086|6161t01001000000 28 000003820001 33600000 06 00000000000000 110000 00 11000011 0000099* 0000**0200996 16600 00 016** 
086161  61 1810 120  0000666000  a67R60002  16  08  OOOO  2600  000  2260000  362600  120336000  03 1 03000  090  00300  •9*(1 0 3 1623900  00  016  09 
08616163103018000000000000000700000002000061000000660000062800016339000061030306660036320600103026000001610 
081161631010660000166600  0911  6300  33  366200  0 06600  000270  000  06663  00  0366  210000  21  00001111300  00217200  31260  3900001611 

• •6 1616 11 0702700001 10600 000 7330 0 06 2191 00 0 08 too  000 0000000161 600 00 1616000030 00 030 0 0300000 00030 00 1)00000 00 016 12 
0«6 16163701 001000000090000000000001326000000000000000000000 000 0000000000 00 03300 0030000 300000 300 000 0000016 13 
••116160191001000000660000000000008606000011000000129000001600001682000012000000820006226200080313000001616 

• •616161  10.1*  768  0001060  00  0 0 900000  00  292*00  9031 00  00000690000 13600  00 10  69000  061  030  00  0 6600  00  091 2000  086  223000016  19 
•8116160103066000002320001 162000066228000086000000020000001000001023000021000900620000026900006698000001616 
•861616030102290030018000000000000627300000000000000000000000000000000000003000000000000000900090000000161 2 
0811 61 67 60 tOOlOOOOOO 06 000000 72 0000 08 taOOOOOOOOOOOOOOOOOOOOO 00 0000000000000030300 OOOOOOOOOOOOOOOOOOOOOO 016 18 
08 6 166 10 10 1*0 100901 291 080 1166800 16 366200 000800 000000 00000 00600 00 30060000 11 000320 0300 029*120 0326360 00 000161 9 

• 81 16< 30 1010 1200000968 00 0 026 2 300 16 071  100  0 07690  0019820001260300  326239  0 00031  030002  36000096360  0066616  000001620 
•86 I 66. 101030 300 00001 13000016700001809600006100 000036 00000620 00006260000061 000000 22 000 30 36 200162930 0000 01621 
••6166 301 030669900 31 1900 13318600606090000066000010600000689100 169393000 021 000006 320000660200920922000001622 
08i|6« 30 1 020220 000 0960 0 00 0 00 0000 13036600 008 10 0 00 0000 0000 130900 0 0 13090 0000 0 0 00 00 0 00 00 00 0 00 03 0 300  000  900001623 
00916630603001000910269000006600003962000011000000190000002200002826000012 090900020000000000009261000001626 
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]«KSlss1n<l0^o’*lal)(lF?o^«>ooooaolll>l>l)OQ>>o^roooollool)aaal))ooooooGOOOOllo<•tsoao(l4lOguaullllUOll(lll•■<isaoOlJl9s^lllllll)al«^« 
3o<iOto‘<*'3aoi)ooH9oao(>ni<;4oaoi  327900  oo*><>iii)ooooii6aoooaaooooooo7rsooooriooaoooo4i)oi)0303]oi)aoo<i«'7ooi)ooi9Zb 
30*3  If  9 3011 01 0 770  0 0000  3bOOOOOOOOCOaOk9t  900  00  3000  00  3000  000  0 000  000  0000  00  000  0 0 000000  0 00  3000  0 00000  00  0 00000000  tbzr 
OOSftf'fOkOOOOlOOOOOOfOCO  0001  Of 00000  77600001 tOOOOOOOOOOOOOfkOOOOlfkOOOOOOir 000000 0700000000000002 3S000001I|70 
3(*f Iff fOkOOO'bOOOOOOlbOOOOOOIOOOOOffff 00 00 31 000300023000 000003000771 0000fl0000009k00009960a002276f300001k79 
30  Of  If ffOkOlOff 000000330000 06 1100 00 f76f00006<i  000000110000000000001002030071000000 06 00000  Of f0000091f000001k30 
3009 Iff  f0<i0l0779000')0060000000000a00701  0000  3000  0000003000  000  000  000000000000000000  0000000  00000000  300300001631 
30*919f77603001300006f 2009 17779 00109167000036000(10000000 0000000 000* 71 000 01 10000026900001 766000 37092000001632 
3006 lf'7?6030170900('171 303007630001701030 002630000610 3000383000 1061 600 0003 1000006 16000009 7100096327000001633 
30 99 If *72601 0390300 069 30002 76670011 3739000061000000093000300000000663000091330303630000697903390799003001636 
309919*7260309600000671 0002669600  1299960000660(,  30000300  00  0730030 132 16000071030300  6300000  323u0006347000001636 
3«0f|9*7'>637(l  72330  0096600  00  099900  38  3 37200  0 00 130  00  0 000  00079  3 3603  0293360  930  03  0 3000  0 000  000  0 00000  000  0 30  3000  016  36 
300*19033 1360910308*0090000000000 00078600009600 0000000000026703000262003000000000030030000030330^33300001637 
3099199  1070.300100000167000001960002973303  001100  001110  300110180018  36  9900001700930  0920000  366200316290300001636 
300*l«<>132030290000 196200303 79100260666300031000091290000364100023060903030330000360000030000330911300001639 
6**9 l^a 10 70 10610 3000 06900 000 36600 00 67 7300 0 0 9100 030696000 76 1 1 300 0 96702 0 93096 0303 19 00 00 09903900 203632000001660 
30*3 19930201066000002063000161300033030000071000009000001301200002999000372330033110000013930063991300001661 
30  **166  01 '9300 10  9 0006770  001 92260009  081 600  00 11 00  00  1972  90 109  37  100  36 16  60  0 33  0 1 7 00  03 1 690  0 0 0666621(3277 1 1 1 30  0001662 
30*916601701076000017919001090000  2*  7170 000 0 II 00 000 1 31  30000 66600 0201 99000 030 030 JO  1 090000 1 309300 1 97 16 30 00 0 1663 
100919601701061000000060000000000000966000091000012273009332300266996000096030311670006307900211137600001666 
30**16601701066000009090001 76400019 3769300071 00 00 3299 0000269600039300000072000009 7100300819003 70693303001669 
300916691701099000000030000000000300979000010000000000000000000000000000030300000000000000033000333000001666 
3003166019010*100000061100000 1600004992000011000000160000009600002196000017030300963000036600037799300001667 
3**916601301026000000170000000000002679000011000000030000001100000627000091 033303630300 12660(i008 387000001660 
30 09166818010 960 000001700001 34 10000 1060 0000 66 000000161000191 3000061 10000071000000083030019700001213300001669 
10*916601101077000080120008008000006099000030300000003000300000000000303000000330330000303333300330000001696 
S0**1* 60 140300 1000007 100000006900019777000011000000960030017203012660000317330309080036633103120316000001661 
108*1660190302600000198000071 060001307:00003103003010000300000000669633006100330666 0003023800  It  730  1003001662 
300*1660190*0960  000011600  0067  9000  07306000  006600  00  00  97  30001209 00 0111  16300 067000300  16 00030  79 13033  3132300001663 
10*6 1660 1482071010000760000 079*0001 066900007200000130 30000 16703 3182360030033003300300003 00330363330000001666 
30*618 60 20 03 001000000 69 0000000800006 70 900001100003013000000160000 19 70000017030301 38 00002303303 22 191003001666 
300916602 0930 2600 0000 *3800000 000  300*19700 009 too 0000 32  100 09 07300 0096600 00 09600000 0 30 00 00 1 9200 0 00 7 32300 00 0 1 696 
300*1660200*066000080790000176000009769000071000090000000396100001166300072000300070000000000000921300001697 
3**916687101081008080838000C0060000069700aOOOODOOQ030 30000000000000 00300000 300000 0300 000 00003300000 00001(1690 
30**1660720*991990001 *70090061600072062000011000009213001726603097609000017303301610033773333333176300031669 
30 861660228 30 263 30006 27 0000078800 06617990003100030022000000 660300 33 20 330330000300 73 0033332030003166 000001 660 
30091660720306100000001 0000000000000167000091000001 30300086960002777000006600000146000110360033936*300001661 
30**3  660270  306608000709000011  0*0  3 03199900  007100  00  0 060  00  000  31  700  0090260  00  0 72003001  6600  000  01730  320  6610030  01662 
3009166023010810000803180000000000067010000110000007630001 12300012366000026000000610000000030006372000001663 
30091660230*031000800060000001700000603000066000030030000300000000662300071000000070000016330301339000001666 
60**I96 02 3010720 00080 06 000000 900000 09 39000000000000003000000000000000000000003300303030000033000333303001666 
60691660760*001090090760000000600018683000011000000609030386600011733300017030301260000367600021660000001666 
308319602601076000800  7*000001270001  12360000*1009000010000000030003163000061030000  11300020293  000  36600000  01667 
30*6166026030960 9 0001010 000*60 60092769600 006630009027 000 0962 300006361 00007 103000 0 21 0000069230 30  311*0030  01668 
30*316602601877090000090000000009091106333030800000001000030000033000000000300000000000000000030000000001669 
30 8*t66a’90108l000000020a0000a000000 26 .3000000000000300000003003000000000000030030 03 0000300090000300003001670 
30*31660290700100008001000000000000819100006600000030 10 0 00 36900000 3690 00000 00300 0 03 00 00 0 000 J 3 0 03 330 uO 00 316 7 1 
30**16660101 001000080070000001600001090000000000000003000303003333000333303333000330030303333000333000001672 
300*16666601 0990 09079960 003000000699933000080000000009000000000000000300033030300000000003000000033300001673 
300*1666670197790 001 717000000 0000*3010200 00 3030003000000 0000000000000033000 303000 0000 000 00030 309 000000001676 
3***1666690107203007*6900  0080  0000  19669*00000000 03 3 0 3000 3 00 03060 0000 00300 0 00 33L 30 0 03 00 0030030 00 00 303 3 QUO  01676 
30**16666401001810000190900000000002976000000000000300000093000030000000003330330090000003033033330333001676 
300*17220101001900000100000000000001641000900000030009000009000000300000030300000030030000000030330000001677 
30*917730  20  3*8109  0 00*610  00136  760016416000a3a60a0030983aOOa09303a9a464Q330116333  62d6  3ail8  7470l39  34S63Q0001S7« 
30*317230703017930318720006*96100 11 °660000 02600 00 7091 000 39 3 370 1 196920 00333 1 3 0 00 1 0 o230 31 761 1 0 0 30 0 62400 0001679 
30*3 17? 39 78 10 *3 99 00 20 19 9096290 300669 19000 0 06 10000 0071 000 2199600 0 319930 90 06 10 30 9 32 3700  to  73 16009 72  169000001600 
300*17230201096 918066470032706101291301000066000020030093761900369982003067333300303333033703003337000331601 
3**9 177 30 7030 71 000011. 33 000706 160 017 931 90000720000 2689300061 7900 3068 3 7000081333300030001068 9930106843000016 02 
30*917230201094090000210000009900096886000000000000303000003003030000300309039330030000300000000309300001603 
300310010 20 *00190801 3110000 09960 021 6086000061000000003000003200000002000000030000090030000000933303300001686 
30*919010  3010  8100000  089  00  8000  0000901 39100000000  000000100  0000000  000000000  0000  0090  0 3300003  00030330  300000001609 
30 *3 1*1 *01010910000 16790000109000 2* 370 10000300 030 30309000990 00 10900000030000303003000003000030003333300 01686 
306919170601081088082733000007100863220000000000000000000000000000000000000000009900000030030030003300001687 
36* *1999999994444944994494499099994499944999999999949494949499994994999999494494994999999999999949499990 16 00 
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Unit  1 (Output)  - Modified  Shipyard  Shop  Data  File 


SIS 

w 

sit 

sit 

sit 

Sll 

Sll 

Sll 

sit 

sit 

Sll 

Sll 

Sll 

111 

Sll 

Sll 

Sll 

Sll 

Sll 

sit 

sit 

sit 

sit 

sit 

sit 

Sll 

Sll 

Sll 

Sll 

sit 

sit 

Sll 

Sll 

Sll 

Sll 

sit 

Sll 

Sll 

Sll 

sit 

Sll 

Sll 

Sll 

Sll 

sit 

sit 

Sll 

SI* 

SOI 

Sll 

sot 

sot 

SOI 

sot 

SOI 

SOI 

sot 

Sll 

sot 

soo 

SOI 

SOI 

SOI 


0 CV  ^9  *Ot*FST«L  lOlfItfS  Omil  OIttFJItSS  ^fOltO  IfttIKi  IblNOIFOL  OlJt? 
OOeOSOOtllllCOOOOOItttOieOOtItOtOOOOl  100  OOdOOIIOOOOtOtOOOlQ^OtOOOOStOOOOOO  0000  Ot  994  tOOOt9<»<ltOOIIIIJt4 
lOIOSOOllOOQOOOSOQOOOOftOI 08 0II90I00 0100 OlOOOOOIOOO 0910000 oosro 000 11 00000 00010 00 949000009490 00 0001519 
1 II ISOinOOOOOOOOIIOllflOOQOlIf 900 009100000ll0l0l00r990000ir 99000099000000 000000 0t9400000?940a000 1599 
t|l0s0990ll0000l000l?99s000l?993 00 009700000 00100009 1t900 0095 ftoooori 00000 00?000000t900 000 196000001 599 
mil  1010  OOlOIOniOOOO  000000  019S00  00100000  000001000  00  000  00  00  000  00  00  0 •0000  0 0000000  00010  000000010111597 
S| tot I0100l0000?0l000009f 0000 595000000QOIIOiOIOOOOOOOOOOOOOOOOOOOOOOOOOOO 00000 00 000 OOy 000 000 000601 590 
90 tOSIIllOOOOOttOOOOIOOl 0000 S7I40I00910000007900IOOIIIOOQ09190000099000000 01 00000011000000710000 01594 
901l?lt70000ll04000l0l00000013e90000 7100000001 0000001900000011000000000000000000000000000000000001570 
70 191001000000 590100049100 Q09|0t00 00 11  JO  0000 170000 0079000079090 000 17 00000 0 040 000 0 0000100 1^74000001571 
70 19 Si 7190000004  0000000010 00 190400  00 10000000190000 0 00 000 0071 07000091 00000 0 ??00  00 009 7000 0 50 1 1 00100 1 577 
7I19S0A909000009 0000 10 000000171 000017100000 007000 00 0090 J 0007 01 000 077II0000 0900000 OJOOOJ 00177010001 5 75 
IOtll90tOOIOOOO?OOOOOOOOOOOOIS10090000000000000QOOOOOOOOOOOOOOOaOOOOJOOOOOOJOOOOOJOOJOOOO 030000001579 
t 99 03 loiotodoo 17000000 000000 7 19900007900 0000 1900000 0000000 79 790 0003 1 00000 0 09 00 000 00 0000 0095 JOO 000 15 79 
I09i3|9100l0009000 00 79090000101 900 0099000000 7300 00 000 000 010 5490060 7 1 6060000100000 009u000 01910090615  79 
II 7I1I9100IOOOOOOO 00951 100009 31 100090000 0000 00 000 00 00000 0000 00 000000000000000000006000000000000001577 
€9011 09190090091000109090 000 000900 000000009000 0000 000000 0000 000 00 00000000 00000 000 00 000 00 0000 010001 576 
00 117901000090 390 0101009 00 00947 100007700 010000 1000 199400 00 199400 0000 00 000 00000 00 000000 000000600001 574 
11701901000000010000000000000197000000000000000000000000000000000090000000000000000000000000000001500 
90  SOI 1019000900100  0 000  0900  00  619100010 000 0000 00 00 0 00 00000 0000 00 0 0 30 00000000 9000 30 0 300 00 000 000000001 501 
00903991 900010 17000 090 1400 00 1 7900000 1 1 00000000 000 07191 00 00 7991 0000 17 00030 00000 000 01 160 000 J 11010001517 
10907091000000 000000 19 1900 00 191900009900 000 000 0000 07 91 00 00 0791 00000 000000 000 00 00 000000 000 000 0000 01 505 
00911 00 100000091000000000090011 90000 0000000000 00 000 00 000 000600000000000000000000000001000000000101509 
00903081000090971000007300008707000011000000990000009100004979000017000000090000000000000950000001509 
•090S0 79000000 740 00000000000999700 00 1100000001 300000000000 1109000091000009990000990900070995000001519 
00913099000000 14000 0 071900 00791 100 009990 000 033 000 009710000950900 0 097 000001  7900  011  7970 00 5097900000 1517 
18117171000000 19000001 79 00 00 147I80007700 00 00 17 000 00 0 0 000 007779000 0 00 00  0 JO  0 0000 000 000 00 000  0 00000061511 
00701101001000010006000000000193000000000000000000000000000000000000000000000000000000000000000001514 
91 7010Q10000  00 10 0000 00 0000 00 1939000091 30 000 000 0000 0 09300 000093000099 0 00 00 0 000000  111  7 0000 1 1 17 00 6101 540 
91 401 01 7000000000000 14790000 14790000 000000 0000000 00 00 000 0000 00 00000 0000 30 00 JOO 00 000000 300 JOO 0000 01 541 
9070710101000009000000000000019700009130 000000 10000 39900000099000000CJOOOO 0000000000 JO JOO JOOO 00001547 
f •SOtl0100Q0001900000ieOOOOO?949000000QOQ0000030Q00000000000000300QOOa03000 00000 OQ006000000J 000001 545 
71 701001Q0000309P000090?0009l99?00000900000000aOOOO 009000 000 09 000011090010040007701700171 317000001549 
71^0301700000999000094960007304600007933000409 3000977900 197070900 031  000  JO  1 390000151900071  777600001549 
71 7030  St 0000009900 009? 77000 1 31090000910  000  0947100  3104300  104999000  091  0000  37  13  0017153900990  59700  0101549 
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7.2  PROGRAM  Fim 


7.2.1  DESCRIPTION  | 

j 

Itiis  program  processes  shipyard  feedback  tapes  v^ich  contain  data 
sorted  by  OOAR.  The  data  can  be  canpiled  for  individual  OOAR's  or  for 
sets  of  OOAR's;  a maximun  of  ten  sets  can  be  input.  The  SWBS  data  are 
grouped  into  DMPM's.  j 

After  the  first  record  of  the  feedback  file  is  read  and  the  CQAR 
header  record  is  written,  a flag  is  read  to  determine  vhether  Ship  Systems 
Index  (SSI)  nunbers  are  on  the  file.  If  SSI  nimbers  are  used  instead  of 
Ship  Work  Breakdown  Structure  (SWBS)  nimbers,  the  SSI's  are  converted  to 
the  corresponding  SWBS's.  However,  if  SWBS  nimbers  are  on  the  file,  and  a 
SWBS  is  read  vAiich  does  not  belong  to  a DMPM,  a message  is  written  on  the 
"illegal  SWBS"  file. 

Certain  shop  nimbers  may  require  adjustment.  Shop  nimber  68  is 
combined  with  shop  nimber  65.  Shops  6,  11,  17,  23,  26,  31,  36,  38,  41, 

51,  56,  64,  65,  67,  71,  72,  81,  94,  and  99  are  considered  unique  shops; 
all  others  are  ccxnbined  into  shop  nimber  1.  These  shops  may  optionally 
be  converted  to  standard  functional  shops. 

Mandays  are  accumulated  for  each  shop  within  a DMPM;  material 
expenditures,  total  expenditures,  and  mandays  are  acctmulated  for  each 
DMPM. 

When  a COAR  divider  record  is  encountered  (MAT(l)  = 99999999),  the 
computations  are  written  on  intermediate  files  according  to  the  CQAR  set 
to  v^ich  they  belong.  When  the  entire  feedback  file  has  been  read,  eeich  | 

intermediate  file  is  rewound,  and  the  data  are  read  and  processed  one  file 
at  a time.  Reports  on  each  CQAR  set  are  generated  for  each  DMPM.  These 
reports  contain  material  expenditures,  total  labor  expenditures,  total 
mandays,  eind  the  ratio  of  the  DMPM  mandays  to  total  mandays. 

Other  COAR  set  reports  contain  the  ratio  of  mandays  for  each  shop 
to  total  DMPM  mandays,  vdiile  other  reports  give  the  actual  mandays  for 
each  shop  of  each  DMPM.  Ttiese  shop  reports  can  also  be  produced  for  each 
full  job  order  nimber  instead  of  for  each  DMPM.  Figure  7.2-1  shows  a 
hierarchical  diagr^m  of  the  FDBK  program. 
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Subroutine  DATIN 

Ttiis  routine  reeids  and  processes  bookke^ing  information  and  program 
instructions.  The  user  specifies  which  CCy\R  sets  are  to  be  processed. 
The  SSI  nimbers  eind  the  corresponding  SWBS  nunbers  are  read  and  stored. 
The  flag  IFS,  which  indicates  whether  real  shops  are  to  be  converted 
to  functional  shops,  is  read,  and  if  the  conversion  option  is  not  desired 
(IFS  * 0),  control  returns  to  FDBK.  Otherwise,  the  actual  conversion 
data  are  read. 

Subroutine  SCRTCH 

This  routine  writes  intermediate  shop  calculations  to  scratch  files. 
Each  set  of  CQAP  calculations  is  written  to  the  file  corresponding  to  the 
input  set  or  sets  to  which  the  OOAR  belongs. 

Subroutine  ACCOM 

This  routine  accunulates  intermediate  results  on  manning  and  expen- 
ditures. 

The  flag  denoting  that  the  SSI  designation  is  on  the  shipyard  data 
file  is  read  before  the  first  CXIAR  for  each  ship.  The  CXIAR  header  record 
is  read  and  written  to  a file  containing  all  header  records  of  OOAR's 
being  processed.  If  all  COM^'s  of  the  file  are  to  be  processed  in  a 
combined  form,  the  nunber  of  sets  of  CQAR's  (NSETC)  equals  99. 

The  COAR  divider  records  are  identified  by  testing  whether  the 
material  expenditures  of  the  first  data  segment,  MAT(l),  are  equal  to 
99999999.  COAR's  not  specified  on  the  input  selection  cards  are  by- 
passed and  SWBS  nimtiers  are  checked.  If  the  SWBS  nunber  is  not  included 
in  the  SWBS-to-DMPM  conversion,  the  record  is  bypassed. 

If  SSI  nunbers  are  on  the  file,  they  are  converted  to  SWBS  nunbers. 
If  the  functional  shop  option  is  selected  (IFS  ■ 1),  the  conversion 
routine  FSHOPS  is  called. 

Subtotals  are  C2Llculated  for  shop  and  DMPM  mandays  and  for  DNPM 
material  and  labor  expenditures. 


Subroutine  REPORT 


This  routine  writes  three  types  of  reports  for  each  selected  set  of 
OOAR's:  (1)  the  DMPM  profile  report,  (2)  the  shop  ratio  report,  and  (3) 
the  shop  manning  report. 

Intermediate  results  are  read  from  the  scratch  files,  units  1-10,  and 
totals  are  computed  for  shops  and  CMPM's  for  the  selected  sets  of  COAR's. 

Itie  vectors  of  the  shop  ratio  report,  consisting  of  the  DMPM,  the 
manning  ratio  for  each  shop,  and  the  total  mandays,  may  be  punched  onto 
cards  if  the  user  desires.  These  vectors  can  then  be  used  to  update  the 
library  of  repair  shop  vectors. 

Subroutine  FSHOPS 

This  routine  converts  real  shops  to  functional  shops.  The  mapping 
varies  among  the  yards  and  is  input  as  described  in  Section  7. 2. 3.1.  The 
I actual  conversion  is  performed  by  multiplying  the  mandays  of  a real  shop 

) by  the  proportion  which  the  real  shop  contributes  to  a particular  func- 

tional shop.  This  result  is  multiplied  by  the  variable  FACT;  FACT  = 

• 1 when  SSI  numbers  are  not  encountered  or  when  SSI  numbers  other  than  860 

■ are  encountered.  When  SSI  = 860,  FACT  takes  f'n  the  values  of  the  propor- 

, tions  that  SSI  = 860  contributes  to  SWBS  numbers  210,  830,  986,  and 

992. 
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7.2.2  RUN  SET-UP 


The  following  set-up  is  used  to  run  the  FDBK  program  on  the  OX:  6700 


cxjiifxiter: 


uSER»CMi2iiaao 
CHARGE, HSCRtX 
ATTACH, TAPE13 
ATTACH.r APEt$ 
ATTACHtT APC19 
ATTACH, FOSK, I 
FOBK. 

PEHIHO,TAPEl«i 
COPYSBF.TAPEt 
COPVeF,TAPEl6 
COPrBF,TAPElF 
COFYBF •TAPE18 
EXIT. 

REWIND,  TAPE  111 
CUpySBF,TAPEl 
COPrOF, TAPflN 
COPTBF.TAPEIF 
COP»UF,f  APiH 
F/a/9  END 


KDBK  card  Inputs  (unit  11) 


xxxxxxxxx. 

l,FrEOBACKF  UEi  1C<CAAC. 
,SSI, lOxCAAE. 
I,XOHPN,IO«CAAE. 

0>CAAF. 

,TAPElE,TAFri7,TAPf 16. 
4, OUTPUT. 

I, OUTPUT. 

,OUTPUT. 

,OUTPUT. 

i,TAPE  16,  TAFE  17,TAPEH. 
4, OUTPUT. 

I, OUTPUT. 

,OUTPUT. 

.OUTPUT. 

I OF  RECORD 


SS1-T0-SM9S  CONVERSION 
SMBS-TO-OHPH  CONVERSION 
OBJECT  CODE  OF  FEEDBACK  PROGRAH 
EXECUTE  PROGRAH 

COAR  HEADER  RECORDS 

CHPH  profile  report 

SHIP  RATIO  report 

SHOP  HANNING  REPORT 

DUHP  FILES  AT  ABNORHAL  TERHINATION 


7/8/9  ENO  OF  RECORD 

6/7/0/9  ENO  OF  FILE 
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7.2.3  INPUT 


i 


Card  inputs  are  made  using  unit  11.  The  formats  for  these  cards 
are  given  in  Section  7. 2. 3.1. 

Unit  11  - Card  inputs  vdiich  (1)  identify  the  ntmber  of 
sets  of  COAR's  to  be  processed  and  the  COAR 
numbers  within  each  set,  (2)  set  the  option 
fl2ig  to  convert  real  shops  to  functioned  shops, 

(3)  specify  the  shop  conversion  paremeters,  (4) 
set  the  punch  option  flag,  and  (5)  add  a conment 
in  the  report  headers. 

The  following  additional  units  are  used  to  input  information  from 
disk  files: 

Unit  13  - Shop  data  from  shipyards 
Unit  15  - SSI-to-SWBS  conversion 
Unit  19  - SW0S-to-DMPM  conversion 

The  format  for  these  files  is  given  in  Sections  7. 2. 3. 2 through 

7.2.3.4. 
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7. 2. 3.1  Unit  11  - 

Card  Input 

Eight  card  types  are  input  to  FDBK.  The 
types  are  as  follows: 

formats  for 

these  card 

Card  Type  1 

Variable  Name 

Description 

Field 

Format 

NSETC 

Card  Type  2.  This 

Nunber  of  sets  of  OQAR's; 
all  COAR's  from  the  file 
are  combined  if  NSETC  = 99 

card  is  repeated  NSETC  times. 

1-2 

12 

Variable  Name 

Description 

Field 

Format 

NCK 

Number  of  CCAR's  in  a set 

1-2 

12 

KOARS 

QOAR  nunbers  within  a set; 
there  will  be  NCK  of  these 
numbers 

3-52 

1015 

Card  Type  3 

Variable  Name 

Description 

Field 

Format 

IFS 

Functional  shop  ccmversion 
flag 

1-2 

12 

Card  Type  4 

Variable  Name 

Description 

Field 

Format 

NRLSHP 

Number  of  real  shops  to  con-  1-2 

vert  to  functional  shops 

12 

r 

t 

r 

i ^ 

1 1 
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f 


4 

N 


Card  Type  5.  This  card  is  repeated  NRLSHP  times. 


Variable  Name 

Description 

Field 

Format 

KRLSHP 

Nunber  of  a particular  real 
shop  to  be  converted 

1-3 

13 

NF 

Number  of  functioned  shops 
KRLSHP  is  being  mapped  into 

4-6 

13 

KFNSHP 

Functioned  shop  nundsers 
being  mapped  into 

13 

PERFS 

Percent  of  real  shop  mapped  I 
into  functional  shop  1 

7-66* 

F3.2 

*There  will  be  NF  pairs  of  these  variables. 

Card  Type  6 

Variable  Name 

Description 

Field 

Format 

IPUN 

Punch  option  flag 

1-2 

12 

Card  Type  7 

Variable  Name 

Description 

Field 

Format 

ISSFL 

SSI  conversion  flag 

3-4 

12 

Card  Type  8.  This  card  type  is  repeated  for  each  GOAR  set. 

Variable  Name 

Description 

Field 

Format 

COM 

Comment  in  report  headers 

1-80 

20A4 

[ 

I 
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7. 2. 3. 2 Unit  13  - Shipyard  Shop  Data  File 


Data  on  completed  shipyard  work  are  grouped  into  bookkeeping  units 
called  CXiAR's  (Customer  Order  Acceptance  Records).  These  data  are  ob- 
tained from  each  yard  and  stored  on  the  disk.  The  file  organization  is 
shown  in  Figure  7.1-1. 

The  format  for  e^»ch  record  is  as  follows: 

COAR  Header  Record 


Variable  Name 

Description 

Field 

Format 

HEADER 

OOAR 

1-5 

15 

HEADER 

Ship  type 

14-17 

A4 

HEADER 

Hull  nunber 

18-21 

14 

HEADER 

Ship  name 

23-34 

3A4 

HEADER 

Type  availability 

36-37 

A2 

HEADER 

Start  date 

38-43 

312 

HEADER 

Completion  date 

45-50 

312 

HEADER 

Funds  authorized 

52-61 

no 

*HEADER( 17-19) 
or  DATE (1-3) 

Date  of  File 

63-68 

3A2 

HEADER 

Appr  opr  iat  iotv/subhead 

70-82 

3A4,A1 

*HEADER( 24-25) 
or  YD(l-2) 

Shipyard 

85-90 

A2,A4 

HEADER 

Sequence  nunber 

104-108 

15 

*The  file  date  and  shipyard  name  are  the  only  data  items  from  this 
record  which  are  specifically  used  by  the  program.  The  whole  record  is 
read  with  the  variable  name  HEADER.  Values  for  HEADER(  17-19)  are  placed 
into  the  variable  DATE(l-3)  and  for  HEADER(24-25)  into  the  variable 
YD(l-2). 


r 


N 


Shop  Data  Record 


Variable  Nanie 

Description 

Field 

Format 

OQAR 

OQAR  nunber 

1-5 

15 

s»es 

SNBS  nunber 

6-8 

13 

JO 

Information  for  job 
order  nunber 

9-10 

A2 

NSEG 

Nunber  of  data  segments  12 

for  this  record;  maximun 
of  three 

11 

ISIKX> 

Shop  nunber 

12 

M> 

Mandays 

14-103* 

18 

MAT 

Material  expenditures  | 

18 

IDOL 

Lcibor  expenditures  j 

1 

I8,4X 

NSBQ 

Sequence  nunber 

104-108 

15 

*Repeated  NSBG  times. 

1 

i 

CX]AR  Divider  Record** 

Variable  Name 

1 

Description 

Field 

Format 

! Not  applic^d>le 

OQAR  nunber 

1-5 

15 

1 Not  applicable 

Record  of  all  9's 

6-103 

9811 

\ Not  appl icable 

i 

Sequence  nunber 

104-108 

15 

End-of-Data  Record** 

^ Variable  Name 

Description 

Field 

Format 

Not  applicable 

Record  of  all  9's 

1-108 

10811 

*’*The  COAR  Divider  Record  and  the  End-of-Data  Record  are  read  with  the 
same  formats  and  variable  n£nies  eis  the  shop  record.  The  program  identi- 
fies a divider  or  end  record  by  the  presence  of  the  9's. 
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7. 2. 3. 3 Unit  15  - SSI-to-SV©S  Conversion  File 


This  file  sets  up  a mapping  of  SSI  nunbers  to  SMBS  nunbers.  SSI, 
the  Ship  Systems  Index  of  bookkeeping,  is  a modified  version  of  the 
BUSHIPS  Consolidated  Index  and  was  developed  by  Portsmouth  Naved  Ship- 
yard for  submarines.  The  correspondence  of  SSI  and  SMBS  numbers  is 
one-to-one  except  for  SSI  #860.  In  this  case  31%,  35%,  18.5%,  and  15.5% 
of  the  value  in  860  are  mapped  into  SMBS  numbers  210,  830,  986,  and 


992,  respectively. 

The  format  for  this  file  is  as 

follows: 

VariedQle  Name 

Description 

Field 

Format 

SSI 

SSI  nunber 

1-3 

13 

SMBS 

SMBS  nunber  corresponding 
to  SSI 

10-12 

13 

This  format  is  repeated  for  each  SSI. 

7. 2. 3. 4 Unit  19  - SWBS-to-DMPM  Coiiversion  File 

This  file  sets  up  a mapping  between  Ship  Work  Breakdown  Structure 
(SMBS)  numbers  and  Depot  Maintenance  Planning  Module  (DMPM)  nunbers. 


Record  Type  1 

Variable  Name 

Description 

Field 

Format 

NGRPS 

Nunber  of  depot  mainte- 
nance planning  modules 

1-2 

12 

Record  Type  2.  This 

record  is  repeated  NGRPS  times. 

Variable  Name 

Description 

Field 

Format 

IPM 

DMPM  nunber 

1-4 

14 

KSWBS 

Lower  boundary  for  the 
range  of  SMBS  nunbers 
corresponding  to  IPM 

13 

JSWBS 

Upper  boundary  for  the 
range  of  SWBS  nunbers 
corresponding  to  IPM 

7-78 

13 

r 


7.2.4  OUTPUT 

7. 2. 4.1  Hard-Copy  Output 

The  following  units  are  used  by  FDBK  for  generating  hard  copy: 

Un’t  12  - Illegal  SWBS  nunbers 
14  - CCAR  header  records 

Unit  16  - Material  expenditures,  total  expenditures, 
meuidays,  and  percent  of  manday  tot^Ll  for  each 
DMPM  (DMPM  Profile  Report) 

Unit  17  - Ratio  of  mandays  of  each  shop  to  total  mandays 
for  each  DMPM  (Shop  Ratio  Report) 

Unit  18  - Mandays  per  shop  for  each  DMPM  (Shop  Manning 
Report) 

Section  7.2.7  gives  samples  of  these  outputs. 

Additionally,  units  1-10  are  used  as  scratch  files  to  store  inter- 
mediate calculations. 

The  program  also  provides  card  output.  The  formats  of  these  cards 
are  described  in  Section  7. 2. 4. 2. 
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7. 2. 4. 2 Card  Output 

The  following  card  is  optional  and  may  be  punched  for  each  DMPM  to 
produce  planning  module  profiles. 


Variable  Name 

Description 

Field 

Format 

IPM(ISG) 

DMPM 

1-4 

14 

M)SUM(I9G) 

Mandays 

5-14 

110 

PER 

Percent  of  total 

15-24 

FlO.4 

The  following  cards  are  optional  and  may  be  punched  for  each  DMPM  to 


produce  shop  ratios. 

Card  Type  1 

Variable  Name 

Description 

Field 

Format 

IPM(ISG) 

DMPM 

1-4 

14 

PERSHP(l-lO) 

Shop  ratio 

5-44 

10F4.3 

Card  Type  2 

Variable  Name 

Description 

Field 

Format 

IPMdSG) 

DMPM 

1-4 

14 

PERSHP( 11-20) 

Shop  ratio 

5-44 

10F4.3 

tmJMdSG) 

DMPM  manday  total 

45-54 

110 
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7.2.5  PROGRAM  LISTING 


F0BKfINmt0UTPUTtT«PEl*T»PCStT«Pr3,raPE%»r«m,TkPC», 


TltfE7tTafEI«T>KST«m«fr*PEll«INRITt  TMF12>00T^UT,  TA^lSt 
T«PEt« I TAFCIV t • TAFEIF • TUFEt* .TIFEl^l 

NICHtEL  LMATKICE  OTHSROC  tUT*} 

THIS  PK06RAH  GENERATES  A OHEH  MOFILE  REEOKT  OF  HATERIAL  t, 
LABOR  t»  HANOATS,  ANO  THE  RATIO  OF  INOIVTBUAL  ONRN  NANOATS  TO 
TOTAL  NANOATS  FOR  SELECTEO  SETS  OF  COARS. 


FORK 

FORK 

FOBR 

FORK 

FORK 

fmk 

FORR 


THE  SHOE  RATIO  REPORT  OISELATS  THE  PROPORTION  OF  EACH  SHOP  TO  FORR 
THE  ONPN  TOTAL.  FRRR 
PUNCHED  CAROS  NAY  BE  OBTAINED  FROH  THE  SHOP  RATIO  REPORT  TO  FORR 
BE  USED  AS  INPUT  TO  LATER  PROGRANS.  FORR 


II 

?l 

30 

RQ 

SO 

60 

TO 

SO 

TO 

100 

110 


* 

• 

- 

THE  SHOP  NANNING  REPORT  TABULATES  THE  NUNRFR  0^ 

NANOATS  FOR 

FORK 

120 

- 

* 

- 

EACH  SHOP  ANO 

OHPN.  REAL  OR  FUNCTIONAL  SHOPS  HAT  BE  OBTAINED, 

.FOBF 

III 

• 

• 

- 

INPUT  ' 

FILES 

FORK 

160 

- 

• 

- 

TAPEl- 

TAPE 10 

SCRATCH  FILES  FOR  COAR  SETS 

FORK 

150 

- 

- 

- 

TAPEtl 

CARO  INPUT  • 

FORK 

160 

- 

- 

- 

TAPE13 

SHOPS  TARO  OATA 

FOBK 

IFO 

- 

• 

• 

TAPE15 

SSI-TO-SHBS  CONVERSION 

FORK 

ISO 

• 

- 

- 

TAPEIR 

SNRS-TU-ONPH  CONVERSION 

FOBK 

IRO 

FORK 

200 

- 

- 

- 

• 1 

CARO  INPUT 

FORK 

210 

- 

- 

- 

CARO 

VARIABLE  DEFINITION 

rORHAT 

FORK 

220 

• 

• 

• 

1 

NSETC 

NO.  OF  SETS  OF  COARS 

12 

FORK 

230 

- 

- 

• 

2 

NCR 

NO.  OF  COARS  IN  THIS  SET 

12 

FOBK 

260 

- 

• 

- 

ROARS 

COAR  NUHRERS  IN  THIS  SET 

Ills 

FORK 

250 

- 

- 

- 

3 

IFS 

FUNCTIONAL  SHOP  FLAG 

12 

FOBK 

260 

- 

- 

- 

R 

NRLSHP 

NO.  OF  REAL  SHOPS  TO  CONVERT 

FOBK 

220 

- 

- 

- 

TO  functional  shops 

12 

FORK 

2S0 

• 

• 

• 

5 • 

RRLSHP 

NO.  OF  REAL  SHOP  TO  BE  CONVERTED 

IS 

FOBK 

2R0 

- 

- 

- 

NF 

NO.  OF  FUNCTIONAL  SHOPS  BEING 

FOBK 

300 

• 

• 

- 

HAPPED  INTO 

13 

FOBK 

310 

• 

• 

- 

RFNSHP 

FUNCTIONAL  SHOP  NOS. 

FOBK 

320 

- 

• 

- 

PERES 

PERCENT  OF  REAL  SHOP  HAPPED 

FORK 

330 

- 

• 

- 

INTO  FUNCTIONAL 

llfI3»FS.2> 

FOBK 

360 

- 

• 

- 

6 

IPUN 

PUNCH  FLAG 

12 

FOBK 

350 

- 

- 

- 

r 

ISSFL 

SSI  FLAG 

12 

FORK 

3 60 

• 

• 

* 

» 

COH 

COHHENT  IN  REPORT  HEADER 

EIAR 

FOBK 

320 

• 

• 

- 

• REPEAT  CARO  S NRLSHP  TINES 

FORK 

3S0 

FOBK 

3R0 

• 

• 

• 

FLAGS  ' 

SHOULD  RE  SET  TO  ZERO  IF  THE  OPTION  IS  NOT 

OFSIRED. 

FOBK 

600 

- 

- 

- 

OTHERNISE.  IT 

IS  SET  TO  ONE. 

FOBK 

610 

- 

- 

• 

IF  IFS 

-0.  CAROS  R ANO  S SHOULD  BE  OHNITED 

FOBK 

620 

FOBK 

630 

- 

• 

- 

OUTPUT 

FILES 

FORK 

660 

• 

• 

• 

TAPEl- 

TAPEIO 

SCRATCH  FILES  FOR  COAR  SETS 

FOBK 

650 

- 

• 

- 

TAPfll 

ILLEGAL  SMBS 

FOBK 

660 

- 

• 

• 

TAPFIR 

COAR  HBAOER  records 

FORK 

6 20 

- 

- 

- 

TAPEIG 

OHPN  PROFILE  REPORT 

FORK 

6S0 

* 

- 

- 

TAPE17 

SHOP  RATIO  REPORT 

FOBK 

6R0 

- 

- 

- 

TAPE18 

SHOP  NANNING  REPORT 

FOBK 

500 

COHNON  /ONE/  ISN(IIOI) , NSETCtNCIll) .ROARS (tl» 1 01 tNGRPSf IPNt 1001 , 
I HPHIllOll.IC.LOOP.NSHOPfEll.TRFP 
COHNON/TNO/  HOTOT<2l.llll.HATSNRfllD».TDLSMB(t00».N0SMe(1001 
DATA  NSHOP/l.A.ll.lF, 23.26.31.36. SH.Rl.Sl,S6t6R, 
t AR.Gr«Fl(F2,ll(0A«RV 


fork 

FORR 

FORR 

FORR 


SIO 

S20 

S30 

SRO 


FORR  SSO 


30 


J 


CALL  CRRSCT(NE*»44) 

C - • - RCAO  CO«R  SETS  AND  OMENS 
CALL  OATXN 

C • - - INXTTALTIC  ELASSt  COUNTCRSt  AMO  AOOCRS 
LOOE«I 
XREE-I 

3 00  201  X>1«ICMS 

00  2S0  J«ttOS 

200  NOTOTlJtXIM 
NATSMBIXMO 
XOLSNB(XI-e 

>01  NOSNB(XI>0 

c - - - ACCUMULATE  INTERNFOXATE  RESULTS 
CALL  ACCUN 

tF(NSCTC.EQ.BS»  CALL  SCRTCH 
XF( lRER.EO.il  60  TO  A 

C . . . MRXTE  XNTERNEOXATE  RESULTS  TO  SCRATCH  ETLES 
CALL  SCRTCH 
60  TO  3 

C - - - MRXTE  RFRORTS 

A CALL  REPORT 
STOP 
ENO 


rOBK  TAB 
PORK  «TI 
PBBR  SAB 
POOR  ABO 
POBR  ABB 
PURR  AlB 
POOR  A>B 
POBR  ASB 
POBR  AAO 
POBR  ABB 
POBR  AAO 
FORR  6P0 
POBR  AAO 
PBBR  ABO 
PBRR  TOO 
POBR  TIB 
PBBR  r>B 
PBBR  TSO 
POBR  TAB 
PBBR  TBB 
POBR  PAO 
PBBR  TTB 
PBBR  TAB 


c - 
e - 


c 

c - 
r 

c - 

A 

II 

C 


c - 
11 
c - 


«• 

II 

c - 


13 


SWROUTINC  IGCUN 

• TNIS  ROUTINE  ICCUNULRTCS  INTCRNrOllfr  RfSOLTS  ON  NINNINC 
RNO  CItRENOTTURCS 

CONNOR  /ONE/  ISNItliei,NSCTC,NCTll»»K0IRSItltlll,N6RRStIMItlll« 
t NRN(llll)(ICtLOORtNSHOR(t|t,lRER 
CONNON/TNO/  NOTOTIEItlll)  •NtTSNOItlll  tlDLSNBdlll  fNOSNBf  111) 
CONNON  /THREE/  YO(E) lOITE(S) «IRUN 

CONNON/FOUR/IES(KfNSHR(2|,ll),REREStEft 1I)»RRLSHR(2I) ,NFSItl) 

I tFICTtNRLSHR,LSHOP(2l)tNSEGtIS6 
CONNON  /FIVE/  TOOLISt ,ISHOR(3) tNITlS) tN0(3l 
OINENSION  ME«OER(SI)tF»Cfl),IF«C(%) 

TNTE6ER  SNBStCOIR 

OITI  FRC/.31t.3lt.ll3<*lll/<  IFaC/Elltl3ltM«»NIE/ 

REIOI13*E)  HEIOER 
FORNITIlllltllE.IMtlEtAOtlltllM 
IF(EOFft3).NE.I>  GO  TO  SIR 
OITEdlaHEAOERfll) 

0«TE(2)>HEa0ER(tN) 

OlTEdl-HEIOERtiri 
TOd)  aHEkOERdI) 

TO dl a HEIOER (IS) 

NRITEClItd  HEIOER 
TFI  LOOR.NE.I)  GO  TO  I 

NRITE  SHIR  INFO  FROH  FIRST  COIR  HEIOER 
LOORal 

REIO  SSI  FilG 
REIOdltT)  ISSFL 
FORHITdl) 

- REIO  SHORS  OITI 

REIOT IS, tl)  COIR,SNBS,JO,NSCG, dSNORt Jl ,NO(J) ,HIT<JI , TOOL! Jl * J«t, 
3 ) , NSEQ 

FORNITfIS,  13 (ITtlX, II, IX, 3(12, 311, IX), IS) 

IF(EOF(13).NE.O)  GO  TO  310 

RRINCH  FOR  FROCFSSING  ILL  COIRS  CONIINEO 
IF(NSFTC.NF.RS)  GO  TO  IS 
IF(HITd).NE.SSSSNSS9)  GO  TO  «• 

REI0d3,S)  HEIOER 
IF(EOFdS).NE.I)  GO  TO 
NRITE  dl,S)  HEIOER 
GO  TO  I 

- • COIR  COHFLETEO 
IF(HITd)  .E0.99SSS999)  RETURN 

BVRISS  COIRS  NOT  SRCCIFIEO  ON  INRUT  CIRDS 

DO  SI  IKal,NSETC 
NCIKaNC(IX) 

00  SI  IJal,NCIK 

IF(COIR.NE.KOIRS(TK,IJ))  GO  TO  SI 

GO  TO  II 

CONTINUE 

GO  TO  I 

CONTINUE 

- - CHECK  SNBS  NUNBERS 
IR(ISSFL.NE.I)  GO  TO  12 
IF(NRN(SNBS).NE.B)  GO  TO  12 

NRITE ( 12, 13)SHBS,C0IR, JO,NSEG, (ISHORf J) ,H0( J) ,NIT(J) , lOOLC J) , Jal , 
t 3),NSE0 

FORNITfa  ILLEGIL  SNBS*, II, II, I2t IX, II, IX, SITE, SII, IX) ,19) 

GO  TO  I 

- - CONEERT  SSI  TO  SNBS 


311 


FORK  T9I 
FOBK  III 
FORK  111 
FOBK  121 
FOBK  131 
FOBK  IIS 
FOBK  ISI 
FOBK  III 
FOBK  IT| 
FOBK  III 
fork  191 
FOBK  911 
FOBK  911 
FRBK  921 
FOBK  931 
FOBK  911 
FOBK  9SS 
FOBK  911 
FOBK  sri 
FOBK  911 
FOBK  991 
FDBKIIII 
FOBKISIO 
F0BK1S2I 
F0BK1S3I 
F0BK19II 
F0BK1I9I 
FOBKIBII 
F0BK19FS 
FOBKIIII 
FBBK1I9I 
FOBKIIII 
FOBKIIII 
F0BK112S 
FOBKIIII 
FOBKIIII 
FOBKllSI 
FOBKIIII 
FOBKllFI 
FOBKIIII 
FOBKIIII 
FOBK12SO 
F0BK121S 
FOBK122S 
FO8K1230 
F0BK12II 
FOBK12SO 
FOBK1260 
FOBKlEfl 
FBBK12I0 
FOBK1290 
FOBKIIII 
FOBKIIII 
F0BK132I 
F0BK13SI 
FBBK13II 
F0BK135I 
FOBKISIO 
FOBKllFI 


I 


12 

166 t«l 

FOBKISOO 

F6CT«1. 

FOBKISOO 

IFITSSFL.NC.ll  GO  TO  60 

FO6K1600 

IFISHBS.NF.060)  GO  TO  25 

FOBRIAIO 

Z66l«l 

FOBK1620 

20 

F6Cr«F6C(I660l 

F05Rt630 

SMB S*IF6C (1660) 

FO6K1660 

GO  TO  60 

FO6N1650 

79 

TFdSHISMBSI.NF.O)  GO  TO  26 

FB5R1660 

26 

SN65>ISN(SMBS) 

F0BK1  620 

C - 

• - OETEMNINC  ON^N  TO  MHTCH  THIS  SMBS  BELONGS 

FOBKI 660 

SI 

ISG>NFN(SMBS) 

FOBK1650 

c - 

lOJOST  RE6L  SHOP  NUNBC6S 

FOBK15II 

IF(IFS.NE.l)  GO  TO  26 

FOBK1510 

c - 

PROCESS  FUNCTION6L  SHOPS 

FOBltl520 

COLL  FSHOPS 

FOBK1530 

GO  TO  65 

FDBK1560 

26 

DO  61  I>1»NSEG 

FOBKt550 

IF(ISHOP(I).NE.66)  GO  TO  25 

FOBRtSGO 

LSHOP(I)-16 

FOBKISFO 

GO  TO  35 

FOBR1560 

26 

00  30  J*l(20 

FOBK1550 

IFItSHOPdl.NC.NSHOPfJI)  GO  TO  30 

FOBRIGIO 

LSNOPd)>J 

FBBK16tO 

60  TO  35 

FOBK1620 

30 

CONTI NOE 

F06K1630 

LSHOPd)«l 

F0BR166I 

C - 

- - ACCUHULOTE  SHOP  SUBTOTALS  FOR  DNPNS 

F0BK165I 

35 

IF(  NOCII.LT.OI  N0(l)-0 

20661660 

IF(  NAT(I).LT.O)  NATfDM 

FOBK1620 

IF(IoaL(I).LT.O>  IOaL(I>>0 

FOBKI 680 

NOTOT (L SHOPd 1 1 tSG) >MDTOT(LSMOP( 1) » ISG) •NO( T) •F  ACT 

FOBK1650 

C - 

ACCUMULATE  ONPH  TOTALS 

FOBK120I 

NATSHB(ISG)>NATSMB(IS6) »NAT(I)»FACT 

F0BK1210 

IOLSMB(IS6)-IOLSM«(TS6)«IOOL(I)*FACT 

F06K1220 

NO$NB(ISGI>NOSMB(IS6)»NO(II«FACT 

FOBKiriO 

61 

CONTINUE 

F0BK1260 

65 

ZC«COAR 

F06K1250 

IFdO60.CO.ll  60  TO  6 

FOBKI 261 

I660>I660»1 

F0BK122I 

IFdS60.LT. 6)  GO  TO  20 

FO6K1P60 

GO  TO  6 

FOBK1250 

310 

IRCP»1 

FOBKIBOI 

RETURN 

FB6K161B 

END 

FOBK102I 

i 


Jl  .'ItR. 


C - 

c - 


t99 

2D» 

C - 

2ir 


211 


I 


219 

c - 

219 


220 


223 
229 
229 
C - 


239 

232 

299 


SUSmUTtNC  B9TTN 

THIS  ROUT  INC  NftRS  SSI  TO  SMBS.  RCMS  S2TS  OF  COtRS  TO  SF 
FROCrSSFO,  MO  NIFS  SWS  TO  ONFNS 
COMMON  /ONF/  ISMf  1I09I  , N9FTC,MC(10I  »KOMS(ia»  101  ,NGRFSt  IFMC  IBO  t 
t NRMIllOI»tIC,lOORtMSHOR<20) tI*FR 
CONNON/TNO^  NOTOT(20i 1001 •NtTSMBIlMI •IDLSBBIlBOl f MOSHB t 100) 
COMMON  /THRFF/  TO(2> t D*TF(3) i IRON 

CONNON/FQOR/IFS»RFNSNR(2Otl0)«RFRFS(2B|lB)»KRLSHP(20) tNFS(20) 
t tF«Cr,NRlSHF«LSNORt20)»NSFG»ISG 
OINFMSION  KSMBS(100tS)|J^MS(100tS) 

• - RFRO  SSI-TO>SNBS  H0RMIM6 
DO  209  IS«1,100B 
REROI 19,2091  JSSI,ISM(JSSI) 

F0RN«T(I3,9X,I3) 

IFIFOF(19))20 2,209 
CONTI NUF 

RF90  COftR  SFTS 
RFAOf 11,210)NSFTC 
IFINSFTC.F0.99)  NCI1)>999 
IFINSFTC.FQ.99)  60  TO  219 
DO  219  K>1,NSFTC 

RC901 11,2101  MCK,  (<(OMS<K,J  I ,J-l,NCirf 

F0RN9TII2, 101191) 

NC(R)>NCK 
CONTI NUF 

■ • RE90  SMBS  GROUPS  FOR  F9CH  ONPN 
RF«O(19,210)  H6RPS 
DO  229  K«1,N6RPS 

RFaDll9,22B)  IPNtK)  , (KSNBSIK,  J),  JSMBS  (K,  J)  , J-1,  9) 

F0RN*T(I9,2«,10II3,1V)) 

00  229  J«l,9 


FOBKISJO 
FOOR1090 
FOBKIOSO 
FORFineO 
FDSFlOrO 
FOBK1900 
FORKtOSO 
FOBKISOO 
FORKISIO 
FOBMIIFO 
FOBFISSO 
FaRK1990 
FORFIRSO 
FDBK1960 
FORK! 920 
FON91900 
FO9K1990 

fobk:>obo 

FOBK2010 

FOBK2020 

FO9920S0 

FOBK2090 

FO«F»090 

FOB9*090 

FOBX2020 

FOB9»000 

X0992090 

FORF’lOO 

FOBRPllO 

FORK2120 

FORK’ISO 


KJa«(SHBSIK,J)  20092190 

IF(KJ.FQ.O)  60  TO  229  FOP92190 

JJ>JSNOSIK,J)  F0RM716B 

00  223  NSNB-KJ,JJ  FORK *120 

NPN(NSMB)aR  FOBK2100 

COMTINUF  F0BK2190 

CONTINUE  FOMKPIOO 

- - RF9D  FUNCTTONM.  SHOP  CONVERSION  FQBK2210 

RF9O(ll,210)  IFS  FOBK*220 

IF(IFS.NF.l)  60  TO  290  FnBK*2S0 

RFOOt 11,210)  NRISHP  FBRN7J90 

00  230  IRS>1,NRLSNP  FOBK*290 

RE90«ll,2S9)KRtSMPtIRS) ,NF,IKFNSHP(IRS, JFS) ,PFRFSCIRS,JFS) , JFS«1 ,NFOBK2290 
t F)  FN«|{??20 

FORNaTI2IS,10(I3,F3.2))  FDRK«2O0 

NFSIfRS)-NF  F«nK?290 

RC9Olll,210)  IPUN  FOBKFTOO 

RETURN  FnBR*9H 


ENO 


FNBK2320 


c - 


c - 

c - 

c - 
?s 

so 

31 

S3 
C - 

S5 
C - 

^0 

S9 


sim^ouTwr  rsMors 

> - THIS  ROUTINE  CONVERTS  REAL  SHOPS  TO  FUNCTIONAL  THORS 

CONNON  /ONE/  ISNdVailtNSETCyNCdVItKOARSItltlOltNGRRStlRNdOIlt 
t NRN(tOOOttICtLOOR»NSHORI20>(lRER 
CONNON/THO/  NOTOTIZOvlOOt  tH«TSHBdtllyIin.SHOdaOI  (HDSNVCIOOI 
CONMON/rOUR/IEStRENSNR(?a,10ltRCRFSda«lV>tK*LIHR(20l  tNFSI20l 
t ,FkCTyNRtSMR,LSMOR(2ll,NSEGyISC 
CONNON  /FIVE/  inOLfSI tlTHORISlfNATISI yNOfSI 

- - LOOP  ON  NUN9ER  OF  DATA  SECNENTS  IN  THIS  RECORD 
00  A1  I>lyNSE6 

IFdSHOPdI.NE.Oil  GO  TO  20 

- > PUT  SHOP  «S  DATA  INTO  SHOP  60 
LSHOPddlA 

GO  TO  31 

OETERHINE  IF  CURRENT  SHOP  CONTRIBUTES  TO  OTHER  SHOPS 

00  30  J«ly20 

IFITSHOPdl.NE.NSHOPlJI  I CO  TO  31 

continue 

00  33  IRSalyNRlSHP 

IFlISHOPdI.EQ.KRLSHPlIRSII  CO  To  30 

continue 

- - THIS  SHOP  NAPS  100  PEN  CENT  ONTO  ITSELF 
HOTOTtRPHSHPdRS.JFSI  , ISC)  »NOTOT  « RFNSHP t IRS,  JFSI  ,ISG)  »NOf  I) ^F ACT 
GO  TO  39 

•F*)P’SdRS> 

LOOP  ON  NUHBER  OF  SHOPS  NEINC  NAPPED  INTO 

00  00  JFS«1,HF 

HOTOTdFNSHPlIRS.JFS)  ,ISC)  »HOTOT I KFNSHPTIRS,  JFS ) , ISC)  *HOd)*FACT 
t •PFRFSC IRS, JFSI 

NATSUB(ISGI>NATSHN(ISG) *NATIII*FACT 
IOLSNB(ISCI>IOLSHB(ISGI  •TOOL I II ^F ACT 
HOSNNTISGI^NOSNBdSGI  ♦HOIH*FACT 
CONTINUE 
RETURN 
ENO 


FONKESSO 
foOFPSnO 
FONR2300 
POBN’SOO 
FO9iC2SF0 
FOBR’SAI 
FONR2390 
FOBK20IO 
FDNNEAIO 
FOSN2A20 
FOBK2O30 
T0BK2OO0 
F0BK2OO0 
FOBKEOGO 
FONNEOrO 
FORK EGA 0 
FONKEGBO 
FOBNEOH 
FOBFEOIO 
FO9EEO20 
FON/EOSB 
FPPNEOAO 
FONKEOOO 
FOBNEO60 
FOSK»5rO 
FONKEOBO 
FOBEEO90 
rnNKEGOO 
FBBEE610 
«’ONE*«120 
FONKESSB 
FOBKEGOB 
FONOEGOB 
FDflKEGGO 
fobfegeb 


I 


smvouttnc 

FORKFbbO 

c - 

- - this  wouTiiir  MiTrs  Twtrf  of  orFoitTS  fo<<  c»cm 

FOOXPbNO 

c - 

- - sclfctfo  srs  of  cobits 

FONXFTOO 

CONHON  /ONF/  tSN(l«HI|MWrCtNC(tai,ROMSlt0tt0l  iWi»*5*TFNtt«ll 

• FOaXFXio 

t NFwtiiaoi.tCfLoo^tMSMo^ttii.iarr 

FOBNPTIO 

coNNON/riraF  NoroTiaa* laai  •NiTSMai laai  tiusNBt taai  •NORtniiaai 

FONXPTSO 

COMMON  FTMMfF/  VOf SI t ObTFt S) t IFUN 

FONNPXbO 

otNFNbtON  Ta»oiai,coNf;ai» 

FONXFFSO 

a NaTsoMiieai tioLsuNfiaaiiNosuNfiiai  tMOSMoiratiaat t^asMoiaai 

FONKPrbS 

OtT*  Vaan/?MCN, ?MlOtaNNb,INNO, ?MMF»aNfN,aHMTt  SHMU/ 

FONXFFFO 

c - 

- - SUN  SHOOS  FOR  FtCM  SMOS  GMOUO 

FDP«PF*a 

c - 

> - CONOUTF  OFRCFNTS  «NO  TOTM.S 

FONNFTNO 

c - 

- • OFTFMMTNF  V«*0  FMQN  MNICN  ObTb  Mbs  FXTMbCTEn 

FOMX.bOI 

00  is  T>t.M 

FOOX^blO 

It. I 

FONX*N?0 

IFItOlli .F0.tbM0«H » CO  TO  ?0 

FONXPbSO 

11 

CONTTNVF 

FONXTNbJ 

ro 

ITOMO.IT 

FOBX’bbO 

SM 

DO  SCO  IFl.l.NSFTC 

FONK’bbO 

NFMINO  IFl 

F00XPXF9 

NCr.HClIFlt 

FO«X?b«0 

IFINCF.FO.ai  GO  TO  SbS 

FONNPbNO 

c - 

- - THTTIbllFF  bOPFRS 

FnNKVNOO 

MMbT.O 

FONK»oto 

NOOl.O 

FO»XPN?0 

NMO.Q 

FOOXPNSO 

DO  SM  isG>i,ieo 

FOOX’NbO 

OC  so?  LSHal.FO 

FONRNNSO 

SM 

MOSMPUSH,TSG».0 

FONXPNbO 

NbrsuMttsGi.o 

FOOX’NFO 

I0(.SUN(ISGI>S 

POONTNbO 

SM 

MOSUM<TSG)>0 

FONX’NNO 

00  SO  J.lb.tb 

FONX»000 

NRFO.J-lb 

FNNNN019 

C - 

- - MRIFF  MfOOMf  HFbOINCS 

FON«^0?0 

NRITF1J,Sb|  ttnNO«NRFP,DbTF,VO 

FOOKTOSO 

ss 

FORNbT|*l  MFPOMTI  bS- 0» , T1 » II/ 

FONX*ObO 

a ?X,.0»TFI  •tbT,?<*/*,b?» , SK,.tbROl  •,bF,bb./> 

FONXXONO 

30 

CONST MUF 

FONX’ObO 

RFbPllt,b»  CON 

FONXNOFO 

< 

FORMbTiFKbt 

FOPN.ObO 

00  bo  j>ib»t* 

rONNbONO 

MtTTF<J,bb>  CON 

FOOXXIOO 

<(<( 

FONNbTl  ?V,70bbt//t 

FOPXStlO 

bO 

CONTI NUF 

rONXXlJO 

MRITFItb.bOl 

FOOK’ISO 

bO 

FONMbT(bO«,*DN«>M  PNOFTLF  RFNORT* , /,bOX» INI IH- 1 , //» 

FPN«»lbO 

MRITF«tF,bM 

FONXTISO 

bb 

FONN»T|bO»f*SMOO  RbTIO  RFPORT*flSKt 

FONICJlbO 

< .(SMOP  FNTNIFS  b*F  NbNNING  NbTTOS  bN3  THFI*  SUN  ■ 1 F0«  FbCN 

ONFONXSl/0 

tPNI •,/,baX.tTltH-l,//l 

FONKSlbO 

mritf  n«,so» 

rONNNiqO 

f 0 

FORMbT |beX.*NMOP  NbNNING  NFPORT*, 1NX,*|SH0P  FNTRIFS  bRF  NbN  ObTS1*rOIIX»?00 

t •/tbOX,lNllN-» ,/FI 

FONrj.io 

MNITFIlb,SONI  tXObNSITFl,J|  ,J>1,10I 

FONKTJ20 

SOb 

FONNbT|»  CObNS  •,  10Tb  //•  ONPN*  ,iax,*  MbTFRIIL  f*  , 

rpOKXJKl 

t bX,*  LbNON  t*,lSX,*  NbN  ObYS*,10t, 

FONXXIbO 

t • ONPN  N.O./TOTbL  N.O.*,/l 

FONN«2SO 

NNITF«1T,SSNI  IRObNSlIFl.J  I,  J»1,10  I.NNMOP 

rpNN.’bO 

36 


"ISS 
336 
C - 
110 
c - 

309 

310 
350 
C - 
355 

311 
C - 

312 
316 

315 

320 

325 

330 

331 


C - 
3 37 
330 


329 

363 

339 

360 

361 


FOOHiTI*  CO»RS  •»  1016  //•  OHPH\SMOF*f 3Kt20I5,*  TOT 

M9ITF(10,336I  <KO«*SCIFL.J  It  J«ltl0  I t NSHOP 

FORH»Tf»  CO«RS  ’t  1016  //•  OHPNVSHOP*,  2016,*  TOT  HO*,/» 

00  350  IJ=ltNCF 

- RF»0  IWTFRKFOIiTF  RFSOLTS  FHOH  SCWTCH  FItFS 
KCtDIIFL, 110) f (HOTOT (11, L2>tLl3l» 20) ,L2xlt tool f MATSUO tlOLSMB 
FORMATCIOTA) 

IF(FOF(IFL).N€.0)  go  TO  355 

CCMPUTF  TOTALS  FO®  SHOPS  AUO  OMPUS 
00  31C  ISG*1,I(GRPS 
00  309  LSH*1,20 

M0SHP<LSM,ISG)»H0SHP«LSH,ISG) *HOTOT(LSH,ISG) 
MATSl)M(ISG)=HATSUH(ISG)  tMATSUBIISG) 

IOLSUU(ISG)*IOLSUH(ISG) tlOLSHOlISG) 

UOSUH|ISG)=MOSU«(ISG)  ♦HOSHOdSGI 
COUTINUF 

- COMPUTF  TOTALS  FOR  SELFCTFO  COAR  SFTS 
00  311  ISG=1,UGRPS 
NNATsNHAT^NATSUHdSG) 

NOOl  = NOOLdnLSUHdSG) 


FOB  1(12  70 
FOBX3290 
FOBKT2<jo 
FOBKTIOO 

FOBF^iio 
,P0SUBF0BF3»23 
FOBt(T330 

FOBFT^fcO 

FnBK3350 
FDBKXTGO 
FO9KT370 
FOBt(3380 
FO9U»390 

FOBKT^00 

FOBr^SlO 
FOBF3620 
F09KT63!) 
FOBKT660 
FOOlfT^SO 
FT»0K»65O 


I 

I 

I 


NHO=NHO»MOSUHdSG) 

00  330  ISG=1,I(GRPS 

COMPOTF  MANNING  PATIOS  FOP  ONPNS 
PERrFLOAKMOSUMdSGI)  /FLOAT(NMO) 

IFdPM(ISG).NE.5001)  GO  TO  315 

WRITF(16, 3121 

FORNATdHl) 

NRITF(16,316) 

FORMAT!  //•  OMPM*  ,10X,»  MATERIAL  f*  , 

0 6*,»  LABOP  $*,13Xt*  MAN  OAYS»,ieX, 

t • OMPM  M.Q. /TOTAL  M.O.*,/) 

CONTINUE 

NRITF(16,320)  IPM (ISG  ) , MATSUMdSG)  , lOLSOM  (ISG ) , MOSOM ( ISG)  , PER 
FORNAT(I5,lBX,IA,ia«,I7,10X,I10,10X,F17.3) 

IF(IPUN.NE.l)  GO  TO  350 

PUNCH  325,  IPMdSGI.MOSUMdSGlfPER 

FORNAT(t6,I10tF10.6) 

CONTI NUF 

MRITE(16,331)  NNAT , NOOL , NHO 

FORMAT (/•  TOTAL*,7X,I10,7X,I10tllX,I10) 

00  365  ISG^I.HGRPS 
00  330  LSHxl,20 
IF(MOSUNdSG).NE.O)  GO  TO  337 
PERSHP(LSH)*0 
GO  TO  338 

■ - COMPOTF  SHOP  NANNING  RATIOS  FOP  ONPNS 
PERSHP (LSH) »FLO  AT (MOSHPCLSN, ISG) ) /FLO AT (MOSUM (IS  Gl ) 

CONTINUE 

IF(IPMdS6).NF.5001)  GO  TO  339 
NRITE(17t312) 

URITE(17,329)  NSHOP 

FORMAT!  //•  OMPN\SHOP*,3X,20I5,*  TOT  MO*,/l 

NRITE(18,312) 

WRITE (18, 363)  NSHOP 

FORMAT!  //•  OMPNXSHOP*,  2016,*  TOT  MO*,/) 

CONTINUE 

WRITE (17,368)  IPN(ISG),PERSHP,NOSUN(ISG) 

FORMAT! 15, 8X, 20(1X,F6.3),I7) 

WRITE! 18, 361)  IPMdSG), !NOSHP!LSH,ISG) ,LSM*1,23) ,M0SUH(ISG) 
FORMAT  II5,5X, 2016,17) 


FOBFYH/O 

FOBr3A80 

FO"K*693 

FOP«*508 

FOBK'SIO 

F0BN3523 

FOBX*550 

FnBK*560 

FOBF3550 

FnB<3560 

FO9K«570 

FOMK»580 

FOBK3590 

FP9I(*603 

FOPt(*610 

FDBr*629 

FOBWTSIO 

FOBX»660 

F09tC»G53 

FnBt(*660 

FOBK»670 

F99tC»580 

FOBK*690 

FO9KY700 

FOBKTflO 

FOBN»720 

FOBX5753 

F0BN376B 

FOBK'»750 

FOBKY760 

FOBKY770 

FOBXY780 

FOBXYTBB 

708X3838 

FOBX«810 

FOBX3820 

FOBXX830 

FOBX3860 

F0BX3858 

FDBK3S60 
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IF(  IPUN.NE.il  SO  TO  3M  FOOKTBfl 

PUNCH  3^2tTPNIXS6l( IPENSHPINI «N«l*ltl »tPN(ISEI , IPE^SHPIN) »Natl»2tl  FOtC<BaB 


fHOSUMtlSGI 
3BE  FOBNIT(t*«l|F«. 3/IB(l«F«.3,Iiat 
3SS  CONTINUE 

IFINSETC.EQ.ONI  RETURN 
3 SO  CONTINUE 
RETURN 
END 


FOBK««NO 

FORNFRIO 

FONRVRIO 

FORIt«920 

FONKTRTO 

FWIRFRSO 

FORRTRBO 


SUBPOUT  INF  SCRTCM 

C this  routine  NRITES  INTERNEOIRTE  RESULTS 

C ^ * SCRATCH  FILES 

CONHON  /ONE/  ISHdOOOl  |NSETCtNC(10l(KO«RS(10f 
t NPHflOOOItICtLOOPtNSHOPTFOl ,IRFP 
CONMON/TMO/  HOT OT (20. 1001 .«'TSKP ( 1001 »IOLSNB< 
IFIHSETC.NF.RR)  GO  TO  100 

NRITEt  1, 1101 C(NOTOT(LlfL2ltLlvl.20).L2«l*10S 
RETUPN 

C - OFTERHINF  SETS  TO  NHICH  THIS  CO«R  BELONGS 

100  00  ISO  IK«1,NSFTC 

NCIK-NCTIKI 
DO  ISO  IJsl.NCIK 

IFfIC  . NF. ROARS (IK, IJ  11  GO  TO  ISO 

c HRITE  SCRATCH  FILES  FOR  STORING  COAR  SETS 

NRITEdK,  1101  ((H0r0T(Ll,L2l  ,L1>1,  201 , L2«l,  100 
110  FORHlTClOiai 
GO  TO  ISO 
ISO  CONTINUE 
ISO  CONTINUE 
RETURN 
FNO 


ON  APPROPRIATE 


100l,NDSHB(lfl0> 


FOBRF960 
F0'*F'»<»T9 
FOBK’SAO 

101, NGRPS.IPNI 1001,  FOBF«9qO 
FOBKAOOO 
FOSRAOIO 
FOBRAOIO 
l,HATSHB,tOLSPB,NOSHBFOBKA130 
FOBKAOSO 
FOBKfcOSO 
FOBRAaSQ 
FNSFADFO 
FOBRfcOAO 
FOBKAIJSO 
FOBKAIOO 
I ,HATSMB,IOLSHB,NOSHSFOBKA110 

fobraiio 

FOBRA130 

fobraiao 

fobraiso 

FOBRA160 

fobfaito 
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7.2.6  GLOSSARY 

CX)MMON  VARIABLES 

Camion  Block  /ONE/ 

IC 

IMP(IOO) 

IREP 

ISW(IOO) 

KOARS(10,10) 

LOOP 

MPM(IOOO) 

NC(IO) 

NGRPS 
NSETC 
NSHOP(20) 

Coimon  Block  /TWO/ 

IDLSWB(IOO)  Array  of  labor  expenditures  for  each  DMPM. 

MATSWB(IOO)  Array  of  material  expenditures  for  each  EMPM. 

MDSWB(IOO)  Array  of  mandays  for  each  EMPM. 

MnroT(20,100)  Array  of  mandays  for  each  shop  and  each  DMPM. 

Cannon  Block  /IHREE/ 

DATE(3)  Date  of  data  tabulation. 

IPtIN  Punch  flag  option. 

YD(2)  Shipyard  name  abbreviation  from  data  file. 


Integer  form  of  CQAR  nunber. 

Depot  Maintenance  Planning  Module  number. 

Flag  set  to  "1"  after  the  program  writes  the  first 
report,  otherwise  it  is  "0". 

SWBS  array  corresponding  to  SSI. 

Array  of  COAR  ntanbers  within  a set. 

Flag  denoting  first  CCAR  for  a ship. 

Array  of  DMPM's  corresponding  to  the  SWBS  numbers. 

Array  of  the  number  of  CQAR's  in  a set. 

Number  of  DMPM's. 

Number  of  sets  of  CQAR's. 

Array  of  shop  numbers. 


Cannon  Block  /POUR/ 


FACT 

IPS 

ISG 

KFNSHP(20,10) 

KRI£HP(20) 

LSHOP(20) 

NFS(20) 

NRLSHP 

NSEX; 

PERFS(20,10) 


Percentage  that  SSI  nunber  860  maps  into  correspond- 
ing SWBS. 

Functional  shop  conversion  flag. 

Index  for  the  nunber  of  DMPM's. 

Array  of  functional  shop  nixnbers  being  mapped  into. 

Number  of  a particular  real  shop  to  be  converted. 

Array  of  indirectly  addressed  shop  nunber s. 

Array  of  the  number  of  functional  shops  KRLSHP  is 
being  mapped  into. 

Number  of  real  shops  to  be  converted  to  functional 
shops. 

Number  of  data  segments  per  input  record. 

Array  of  percent  of  real  shops  mapped  into  functional 
shops. 


Common  Block  /FIVE/ 


ID0L(3) 

Array  of  labor  expenditures  for  a 
SWBS,  and  CQAR. 

particular  shop. 

ISHOP(3) 

Array  of  shop  nunber s. 

MAT(3) 

Array  of  material  expenditures  for  a particular 
shop,  SWBS,  and  COAR. 

MD(3) 

Array  of  mandays  for  a particular 
CQAR. 

shop,  SWBS,  and 
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LOCAL  VARIABLES 


Main  Program 


I 

Index  for  the  planning  modules. 

J 

Index  for  shops. 

Subroutine  DATIN 

IRS 

Index  for  NRLSHP. 

IS 

Index  for  the  nunber  of  SSI  values. 

J 

Index  used  for  I/O  statements. 

JFS 

Index  used  for  I/O  statements. 

JJ 

Upper  limit  of  a CQAR  range. 

JSSI 

SSI  array. 

JSHBS(100,9) 

Upper  limit  of  a COAR  range. 

K 

Index  used  for  I/O  statements. 

KJ 

Lower  limit  of  a CQAR  range. 

KSWBS(100,9) 

Lower  limit  of  a COAR  range. 

LOCT> 

Flag  denoting  the  first  CQAR  for  a ship. 

NCR 

Nunber  of  OOAR's  in  a set. 

NF 

Number  of  functional  shops  KRLSHP  is  being  mapped 
into. 

NSWB 

Nunber  of  SWBS's  per  SWBS  range. 

Subroutine  SCRTCH 

IJ 

Index  for  the  nunber  of  CQAR's  of  a set. 

IK 

Index  for  the  nunber  of  sets  of  CQAR's. 

LI 

Index  used  for  I/O  statements. 

L2 

Index  used  for  I/O  statements. 

NCIK 

Nunber  of  CQAR's  in  a set. 
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Subroutine  AOCUM 


OOAR 

GOAR 

PAC(4) 

Percentage  that  SSI  nunber  860  maps  into  corresponding 
sves. 

HEADEROO) 

CQAR  header  record. 

I 

Index  for  the  number  of  segments  on  a particular 
data  record. 

IFAC(4) 

SWBS  nunbers  mapped  into  fron  SSI  nunber  860, 

IJ 

Index  for  the  nunber  of  COAR's  of  a set. 

IK 

Index  for  the  nunber  of  sets  of  COAR's. 

ISSFL 

Flag  denoting  SSI  nunbers  being  used. 

I860 

Index  for  FAC  and  IFAC. 

J 

Index  for  shops;  index  used  for  I/O  statements. 

NCIK 

Nunber  of  COAR's  in  a scratch  file. 

canx 

Ynput  record  sequence  nunber. 

SWBS 

SWBS  nunber. 

Subroutine  REPORT 

COM(20) 

Comment  in  report  headers. 

I 

Index  for  the  shipyards. 

IDLSUM(IOO) 

Labor  expenditures  for  each  DMPM  over  a set  of  COAR's. 

IJ 

Index  for  NCF 

ISG 

Index  for  the  nunber  of  DMPM's. 

lY 

Index  for  the  shipyards. 

lYDNO 

Coded  yard  nunber. 

J 

Index  used  for  I/O  statements. 

LSH 

Index  for  the  nunber  of  shops. 

LI 

Index  used  for  I/O  statements. 

L2 

Index  used  for  I/O  statements. 

MATSUM(IOO) 

Material  expenditures  for  each  DMPM  over  a set  of 
COAR's. 
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I 


m6HP(20,100) 

»D6UN(100) 

NCP 

NDOL 

VMAT 

NMD 

NREP 

PER 

PERSHP(20) 


Mandays  for  each  shop  of  each  DMPM  over  a set  of 
OCAR's. 

Mandays  for  each  DMPM  over  a set  of  OCAR's. 

Niinber  of  CX)fVR's  in  a scratch  file. 

Labor  expenditures  for  a set  of  OCAR's. 

Material  expenditures  for  a set  of  OCAR's. 

Mandays  for  a set  of  OCAR's. 

Output  report  nunbers. 

Ratio  of  mandays  of  each  DMPM  to  total  for  each 
OCAR. 

Ratio  of  mandays  of  each  attop  to  total  for  each  DMPM 
and  OCAR  set. 


yAFD(8) 


Shipyard  ncsne  abbreviation. 


Subroutine  FSHOPS 


I 

Index  for  the  nunber 
data  record. 

of  segments  for 

a particular 

IRS 

index  for  NRLSHP. 

J 

Index  for  the  shops. 

JFS 

Index  for  NF. 

NF 

Number  of  functional 
into. 

shops  KRLSHP  is 

being  mapped 

2 


43 


7.2.7  SAMPLE  BUN 


Ttie  CV  59  overhaul  was  selected  for  an2d.ysis  in  the  san(>le  run. 
The  data  consist  of  the  repair  COAR  16851,  the  ship  alteration  COAR 
30851,  and  the  ordinance  alteration  CX)AR  49851.  The  run  was  made  with  the 
alteration  CQAR's  grouped  together.  The  input  card  set-up  and  portions 
of  the  other  input  files  are  shown  in  this  section.  Output  reports  eure 
also  given. 


Unit  11  - Card  Input 


3 

116851 

23085169851 

3168513085169851 

0 

0 

0 


CV 

59  

REPAIRS  

REAL  SHOPS 

CV 

59  

ALTERATIONS 

— REAL  SHOPS 

1 CV 

59  

REPAIRS  AND 

ALTS  — REAL  SHOPS 

Unit  19  (Input)  - SWBS-to-DMPM  Conversion  File 


f9 

1001 

100-100 

110-126 

1002 

125-126 

1003 

161-161 

191-191 

100« 

162-162 

lOOS 

163-163 

1006 

165-165 

1007 

167-169 

1000 

170-179 

1009 

100-107 

2001 

200-209 

250-250 

2002 

210-219 

2003 

221-221 

259-259 

2006 

222-222 

236-236 

2005 

231-233 

20  06 

235-239 

223-226 

2007 

261-266 

2000 

267-267 

2009 

251-251 

2010 

252-252 

2011 

253-253 

250-250 

2012 

256-256 

2013 

261-266 

290-290 

3001 

310-312 

3002 

313-316 

320-326 

3003 

361-363 

390-390 

30  06 

300-309 

6001 

611-612 

693-693 

6002 

613-617 

6003 

622-626 

626-627 

6006 

621-621 

625-625 

6005 

630-666 

695-695 

6006 

650-653 

655-655 

6007 

656-656 

692-692 

6000 

660-665 

6009 

670-676 

6010 

600-609 

6011 

600-609 

690-691 

5001 

511-511 

517-517 

5002 

512-513 

5003 

515-515 

5006 

516-516 

516-516 

5005 

520-550 

590-590 

5006 

562-562 

5007 

560-561 

563-560 

5000 

570-573 

501-505 

5009 

506-506 

5010 

507-507 

5011 

500-500 

5012 

591-592 

596-597 

5013 

593-593 

5016 

500-509 

6031 

611-613 

632-632 

6002 

631-631 

6003 

636-639 
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1 


i 


1 


1 


• I * 

■1 


M0% 

999-999 

999-999 

6««5 

999-999 

6106 

991-993 

999-999 

950-999 

991-999 

60or 

999-999 

999-999 

■ 

60St 

979-973 

990-990 

999-999 

6*09 

909-919 

990-990 

6019 

929-929 

bill 

933-933 

7111 

710-711 

720-721 

7102 

712-713 

722-723 

772-773 

fao*rao  raa-raa  /90-790  f92-/92  r97^?99 

7ias 

729-729 

7119 

739-733 

790-793 

7909 

799-799 

7999 

799-793 

7997 

700-709 

9901 

919-913 

999-997 

802-902 

9002 

920-920 

930-939 

9003 

999-999 

9999 

999-999 

990-999 

892-095 

9005 

991-991 

9001 

992-992 

9992 

999-991 

993-909 

9993 

999-999 

9009 

999-999 

9999 

997-997 
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Unit  12  (Output)  - Illegal  SWBS  Niinbers 


\ 

I 


00^^^^0088^00800^0^ 

Sf^^orv&'o^orvor^ora'va'ocororct' 
oooooooooooooowooo 
It  «z«zzzzxzzzzzzzzzz 
o oooeoocaoooooeooeoo 


e ooeooeoooc3oc>ooc9(9av4 
K K^•I^K^^^»KK>K^KKKK^.^•KX 


Unit  16 


it)  - DMPM  Profile  Ret 


SftTci  M/rt/rr  TAtoi  nmfoi 

C«  M UTEMTIOMS  • •••  KC*l  SHOrS 


on^n  ^tOfiLC  nipo^f 

\ 


COkn  SII91  %«•«!  9I««8I«I 


I 


OHM 

narcaUL  t 

Liao*  f 

MN  OATS 

ON#f>  a«0./T0MC 

tail 

0 

IhS 

1 

• Ml 

ta«< 

0 

a 

a 

a»aaa 

Ills 

0 

a 

a 

a.aaa 

!!•« 

9 

a 

a 

a.tia 

1CI» 

0 

a 

a 

a*aia 

iai» 

a 

a 

a 

a.aaa 

lair 

i 

a 

a 

a.aaa 

IIBt 

a 

a 

a 

a.aaa 

liss 

a 

a 

1 

a.aaa 

am 

3 

a 

a 

a. oat 

a 

a 

a 

a.aaa 

aif) 

a 

a 

a 

a.aaa 

a 

a 

a 

a.aaa 

ttaa 

3 

a 

a 

a.aaa 

a 

a 

a 

a.aaa 

t$iT 

« 

S«S 

t 

.aaa 

l$U 

a 

a 

a 

a.aaa 

BIIB 

a 

a 

a 

a.aaa 

EllC 

c 

a 

a 

a.aaa 

tail 

a 

a 

a 

a.aaa 

tait 

a 

a 

a 

a.aaa 

till 

a 

a 

a 

a.aaa 

laoi 

a 

a 

a 

a.aaa 

Jilt 

a 

a 

a 

a.sM 

sail 

a 

) 

a 

a.aaa 

saa« 

a 

a 

a 

a.aaa 

^aai 

a 

a 

a 

a.aaa 

MIt 

ais 

MM 

at 

.aai 

%aas 

ats 

intt 

iia 

.aai 

Ma« 

a 

a 

a 

a.aaa 

Mil 

jsai6 

taa»M 

i^as 

.aas 

Mil 

sta^M 

iMMtJ 

Maa 

.aas 

%aot 

a 

SIS 

% 

.oea 

Mil 

a 

a 

a 

a.aoi 

Mil 

a 

a 

a 

%.s%« 

«aio 

a 

a 

a 

a.aaa 

%aii 

laaats 

llStlM 

aM« 

.ast 

saat 

a 

a 

a 

a.aaa 

laat 

a 

a 

a 

a.aaa 

laei 

a 

a 

a 

a.aaa 

MM 

MtSM 

lasioai 

Mat 

.a%t 

Mil 

ttttM 

ttt4%^i 

isias 

•ns 

MM 

a 

a 

a 

a.aaa 

Mat 

a 

a 

a 

a.aaa 

laaa 

a 

a 

a 

a.aaa 

MM 

ssaiM 

saas 

• o%a 

laie 

tssttt 

tMMlt 

itaaa 

.lat 

Mil 

8 

a 

a 

a.aaa 

Mlt 

0 

3 

a 

a.aaa 

MIS 

itrsi<» 

iasa?s« 

aita 

.as6 

«ai« 

a 

a 

a 

a.aaa 

aaai 

a 

a 

a 

a.aaa 

aaat 

a 

a 

a 

a.aoi 

aaas 

a 

a 

a 

a.aaa 

aaite 

M 

lOM 

T 

.aaa 

aaii 

a 

3 

a 

a.aaa 

aaaa 

a 

a 

a 

a.aaa 

Mlt 

a 

a 

a 

a.aaa 

MM 

a 

a 

a 

a.aaa 

aaM 

sstiss 

tttMai 

laatt 

.lit 

MIA 

1 

a 

a 

a.aaa 

aaii 

a 

a 

a 

a.aaa 

taai 

a 

a 

a 

a.aaa 

taat 

aiM%i 

6SS0M6 

laiaa 

.Stl 

taas 

a 

a 

a 

a.aaa 

taa% 

a 

a 

a 

a.aaa 

taai 

a 

a 

a 

a.aaa 

raaa 

a 

a 

a 

0.001 

raa/ 

a 

a 

a 

a.aaa 

aaai 

ion 

SIMtS 

laai 

.eit 

aaat 

a 

a 

a 

a.aaa 

MIS 

a 

a 

a 

a.aaa 

aaa6 

a 

a 

a 

a.aaa 

aaas 

a 

a 

a 

a.aaa 

Mai 

a 

a 

a 

a.aaa 

Mat 

a 

as 

.aaa 

aaai 

a 

a 

a 

a.aaa 

aaaa 

a 

a 

a 

a.aaa 

Mas 

a 

a 

a 

a. oil 

Torat 

tSMSM 

iMinti 

llSMl 
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lltl 

MMl 

iiriiM 

rrtf 

.Ml 

tilt 

1 

1 

• 

I.IM 

i9$» 

fl 

it«i 

r 

.Ml 

tll% 

1 

1 

1 

I.MI 

iir  111 

mil  ff 

UlM 

.Ml 

• 

I 

• 

l.llt 

titr 

ir«M 

t**rir 

•n 

.11* 

!••• 

SIM 

fU*l 

1*1 

.Ml 

tM« 

*1*1 

ui*fr 

i«i 

• MS 

Hit 

itriM 

nir*t 

**M 

• Ml 

flit 

1 

• 

1 

I.IM 

nti 

tiiiJf 

ill  11 

.Ml 

tlt% 

1 

I 

• 

I.IM 

*r*i* 

iiirif 

IIM 

.Ml 

1 

1 

• 

I.IOI 

fiir 

U*Uf 

•*I*M 

*IM 

.Ml 

0 

1 

1 

l.lll 

M*** 

Mint 

lilt 

• 91* 

Mil 

1 

1 

1 

l.tM 

Mil 

1*MI* 

mill 

*llf 

.911 

Mil 

1*1 r«s 

ifiirii 

MM 

• Mr 

MU 

Ut*M 

Mfirr 

*MI 

• in 

SMI 

t<UM* 

ruin 

1*1* 

.911 

MM 

usur 

riMM 

Iiir 

• III 

MfJ 

r** 

n*ij 

*n 

.911 

Ml% 

0 

1 

1 

9. Ml 

%MI 

1**1 

*1*11 

Ml 

• Ml 

MM 

u 

It 

1 

• •Ml 

MM 

tifiii 

M nil 

*M] 

• Ml 

• 

I 

1 

• •Ml 

MM 

MIM 

*irM« 

ifir 

• III 

%IM 

flfff 

IIIIM 

MM 

.III 

Mir 

Ufllf 

«*Mf* 

Ml« 

.IIS 

M«l 

1 

• 

• 

• •III 

«•!« 

111** 

UMM 

1*1 

• Ml 

*tll 

ItlM 

iiMri 

IM 

• MS 

MU 

IJM 

r*n* 

*1* 

• Ml 

Mil 

*ISfl 

l*ISII 

rff 

• Ml 

MM 

lM*t 

MflM 

11*1 

.III 

MM 

I 

• 

• 

I.IM 

Ml* 

ItftO* 

M S*M 

aril 

• iir 

MM 

ttUMl 

ItMJIf 

iritt 

«iir 

MM 

IIM 

*irir 

Ml 

• Ml 

Mir 

llMl 

tniit 

IMI 

• M* 

MM 

ur*M 

r**iM 

*tM 

• III 

Mt« 

IIM* 

lUftr 

Ml 

• Ml 

MU 

IffM* 

iiruM 

tiitt 

• Ml 

Mil 

linn 

iMiiir 

IMM 

.i*r 

till 

• 

• 

1 

• •III 

MU 

1 

1 

1 

I.IM 

flu 

iruir 

MMII 

MM 

• M* 

Mil 

tl*M 

1*IIM 

IM 

• 11* 

MM 

UMM 

ii*rrM 

Mir 

.Ml 

MM 

l*M 

*MM 

in 

• Ml 

Ml* 

MM 

f*M 

•I 

• Ml 

MM 

1 

1 

1 

I.IM 

MM 

iirui 

iriif*i 

MM 

• 1*1 

Mir 

rriii 

triM 

• 

I.IM 

MM 

1 

1 

1 

I.MI 

MM 

iiff 

in* 

* 

• Ml 

MU 

lM*t 

riMii 

tlM 

• III 

MU 

i 

• 

• 

I.MI 

fill 

HIM 

flMM 

IIM 

.IM 

riM 

l«l«U 

IMUM 

MM 

• Ml 

rill 

1 

• 

• 

I.MI 

rii* 

1 

• 

• 

I.IM 

riM 

1 

1 

• 

I.MI 

riM 

9 

• 

• 

9.111 

riir 

• 

• 

1 

I.IM 

III! 

« 

IMIl 

III 

• Ml 

IIM 

l*f 

*lfl 

ir 

• IM 

•111 

1 

1 

• 

I.MI 

Ml* 

1 

1 

• 

I.MI 

•IM 

1 

• 

• 

I.MI 

Mil 

Ullf 

i**iri 

IIM 

• III 

MM 

Mill 

iruM 

ir*i 

•itr 

Mil 

•i*rf 

MMiri 

lf*M 

• in 

Ml* 

1 

1 

1 

I.MI 

MM 

VOMi 

in 

1*MM 

IIM 

IIIIM 

•III 
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DITCI  9f/t(/rr  TtKOI  NMFOL 


cv 

99  — 

• KCPAIOS  AND 

OLTS  — 9t0t 

SHO^ 

DNM 

00 OF lie 

oeoo«T 

co«»s 

16091 

30091  %9091 

0 0 0 

0 

Q 0 

0 

ONM 

M6TE01AL  1 

LO0OO  t 

HON  DOTS 

OHHN  N.O./rorOL  H.O 

Ittl 

90023 

1226%9S 

2223 

• 023 

ltl2 

0 

0 

0 

0.000 

1003 

91 

1190 

2 

• 000 

100% 

0 

0 

0 

0.001 

1000 

102323 

2101629 

12390 

• 032 

1006 

0 

0 

0 

0.000 

1002 

12960 

1%%202 

026 

• 003 

1000 

3269 

900  %6 

669 

• 002 

1009 

%3%0 

101%92 

696 

• 002 

2001 

122162 

2002%* 

6639 

.013 

2002 

0 

0 

0 

0.000 

2003 

913039 

3299030 

10100 

• 096 

200% 

0 

0 

0 

0.000 

20^5 

%261% 

329262 

1099 

• 006 

2006 

0 

0 

0 

0.000 

2002 

11%1%3 

0%  2929 

6066 

• 016 

2000 

0 

3 

0 

0.000 

2009 

60666 

923221 

3032 

.009 

2010 

3 

0 

0 

0.000 

2011 

1%990% 

0131  31 

6319 

• 013 

2012 

3%129S 

1226200 

9920 

.010 

2013 

131996 

0%9622 

6090 

.016 

3001 

193906 

210126 

3666 

.010 

3002 

193102 

206609 

3632 

• Oil 

3003 

2%6 

20%OS 

620 

• 001 

300% 

0 

0 

0 

0.000 

%001 

3%%2 

%%%01 

290 

.001 

tte2 

926 

9392 

92 

.000 

%003 

110100 

OO10%2 

9002 

• 019 

%0O% 

0 

0 

0 

0.000 

%009 

129909 

622269 

3002 

• oil 

%0O6 

S2%%91 

2061929 

11366 

• 036 

%002 

119619 

990609 

2909 

.009 

%0O0 

0 

0 

0 

0.000 

%009 

22l%6 

110629 

666 

.002 

%010 

11029 

106920 

609 

.002 

%011 

102261 

1222093 

2620 

.022 

9001 

%3  992 

16  3330 

232 

• 002 

9002 

36661 

99  2099 

3669 

• Oil 

9003 

0 

0 

1 

0.000 

900% 

902003 

1906692 

9100 

• 022 

9069 

1309220 

0013290 

90602 

.190 

9006 

2009 

66262 

203 

.001 

9002 

31091 

126102 

1001 

• 003 

9000 

122990 

2%%1 93 

6299 

.013 

9009 

122%20 

1069919 

6223 

• 019 

9010 

99123% 

6320299 

29916 

.026 

%011 

332022 

1090332 

10620 

.031 

9012 

0 

1 

0 

0.000 

9013 

12293% 

109023% 

6129 

• 010 

901% 

123902 

999603 

9609 

• 016 

6001 

10%S6 

160300 

929 

.003 

6002 

192269 

1062229 

9012 

• 012 

6003 

l%90 

69692 

223 

• 001 

600% 

669% 

10906 

22 

• 000 

6009 

0 

0 

0 

0.000 

6006 

332921 

1236260 

9629 

.029 

6002 

22020 

22020 

0 

0.000 

6000 

0 

0 

0 

1.000 

6009 

933229 

2220909 

16901 

• 069 

6010 

190%9 

200601 

1296 

.006 

6011 

0 

0 

0 

0.000 

2001 

20009 

206029 

1209 

• 006 

2002 

969293 

2321020 

62960 

.122 

2003 

0 

0 

0 

0.000 

200% 

) 

0 

0 

0.000 

2009 

0 

0 

0 

0.000 

2006 

1 

0 

0 

0.000 

2002 

) 

0 

0 

0.000 

0001 

1010 

3S9SS0 

2130 

.006 

0002 

1%9 

6020 

22 

.000 

•003 

0 

0 

0 

0.000 

•00% 

0 

r 

0 

0.000 

•009 

0 

0 

0.000 

•••t 

16119 

3661 2: 

2199 

.002 

9002 

22303 

920201 

3290 

.011 

9003 

93%29 

2693923 

12696 

.092 

900% 

0 

0 

0 

0.000 

9009 

629 

160609 

1026 

• 003 

TOrOL 

0030099 

90091216 

336226 
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SHOP  RATIO  REPORT  (SHOP  ENTRIES  ARE  NANNING  RATIOS  ANO  THEIR  SUN  > 1 FOR  EACH  ONPW 
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SHOP  RtTIO  REPORT  ISHOP  ENTRIES  «RE  NANNING  RATIOS  AND  THEIR  SJN  > 1 FOR  EACH  ONPNI 
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